اسحب النافذة بدون عنوان مع الماوس

عندما تكون البرمجة ، في بعض الأحيان ، لغرض الحاجة ، سيتم تعيين حدود النموذج على BSNONE ، أي الشكل بدون عنوان. ولكن بهذه الطريقة ، لأنه بدون شريط العنوان ، لا يمكنك سحب النموذج. في الواقع ، نحتاج فقط إلى استخدام الطريقة التالية لسحب النموذج بسلاسة.

يضاف إلى حدث onmousedown

oldx: = x ؛

Oldy: = u ؛

يضاف إلى حدث OnMousemove

form1.Left: = form1.left+x Oldx ؛

form1.top:=form1.top+y oldy ؛

## 1 إنشاء الرمز كما يلي:

الوحدة 1 ؛

واجهة

يستخدم

Windows ، الرسائل ، sysutils ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ، الحوار ؛

يكتب

tform1 = فئة (tform)

Formmousedown الإجراء (المرسل: TOBJECT ؛ زر: TMOUSEBUTTON ؛

Shift: tshiftstate ؛ x ، y ، integer) ؛

FormMouseMove الإجراء (المرسل: TOBJECT ؛ زر: TMOUSEBUTTON ؛

Shift: tshiftstate ؛ x ، y ، integer) ؛

خاص

{إعلانات خاصة}

عام

إعلانات خاصة}

نهاية؛

var

Form1: Tform1 ؛

Oldx ، Oldy: عدد صحيح ؛

تطبيق

$ r *.dfm}

الإجراء tform1.formmousedown (المرسل: TOBJECT ؛ زر: TMOUSEBUTTON ؛

Shift: tshiftstate ؛ x ، y: integer) ؛

يبدأ

oldx: = x ؛

Oldy: = y ؛

نهاية؛

الإجراء tform1.formmousemove (المرسل: TOBJECT ؛ زر: TMOUSEBUTTON

Shift: Tshiftstate ؛ x ،

Y: عدد صحيح) ؛

يبدأ

إذا كان ssleft في التحول ثم // اضغط على زر الماوس الأيسر

يبدأ

form1.Left: = form1.left+x Oldx ؛

form1.top:=form1.top+y oldy ؛

نهاية؛

نهاية؛

نهاية.

تم اختبار رمز العلاج الكيميائي وتم تمريره في Delphi5.0 و Win98 SE.