حرك الفورم من اي مكان فيها

سلام

قد تحتاج يوم الى تحريك الفورم من منتصفهل و ليس من شريط العنوان

title bar . فقد تكون الفورم من نوع Single = هدا النوع لايحتوي على شريط عنوان =

لعمل دلك :

ادهب الى الحدت MouseDown

وضع الجملة البرمجية التالية :

ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0);

و لو اردت مزيد من الاتارة قم بعمل التالي :

ضع زر على الفورم , تم ادهب الى الحدت MouseDown لهدا الزر وضع الجملة البرمجية التالية :

ReleaseCapture; SendMessage(Button1.Handle, WM_SYSCOMMAND, 61458, 0);

الان حاول تحريك الزر ( وليس الفورم ) , مادا حدت :confused:

:D

نعم لقد تحرك الزر من مكانه ,

هل تريد المزيد من الاتارة , (y)

ادا ضع الامر التالي في الحدت MouseDown للفورم .

ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, 61450, 0);

تلاحظ ان الماوس قد تخاصم مع الفورم , وتعلق تعلقا شديدا بشريط العنوان . فكلما ضغطنا في منتصف الفورم دهب الماوس الى شريط المهام .

وشكرا