ลากหน้าต่างที่ไม่มีชื่อด้วยเมาส์

เมื่อการเขียนโปรแกรมบางครั้งเพื่อจุดประสงค์ของความต้องการเส้นขอบของแบบฟอร์มจะถูกตั้งค่าเป็น bsnone นั่นคือรูปแบบที่ไม่มีชื่อ แต่ด้วยวิธีนี้เพราะไม่มีแถบชื่อเรื่องคุณไม่สามารถลากแบบฟอร์มได้ ในความเป็นจริงเราต้องใช้วิธีการต่อไปนี้เพื่อลากแบบฟอร์มอย่างราบรื่น

เพิ่มเข้าไปในเหตุการณ์ Onmousedown

oldx: = x;

เก่า: = u;

เพิ่มเข้าไปในเหตุการณ์ Onmousemove

form1.left: = form1.left+x oldx;

form1.top:=form1.top+y ally;

## 1 การสร้างรหัสมีดังนี้:

บทที่หน่วย 1;

ส่วนต่อประสาน

ใช้

Windows, ข้อความ, sysutils, คลาส, กราฟิก, การควบคุม, รูปแบบ, กล่องโต้ตอบ;

พิมพ์

tform1 = คลาส (tform)

โพรซีเดอร์ Formmousedown (ผู้ส่ง: tobject; ปุ่ม: tmouseButton;

Shift: tshiftstate; x, y, จำนวนเต็ม);

โพรซีเดอร์ Formmousemove (ผู้ส่ง: tobject; ปุ่ม: tmouseButton;

Shift: tshiftstate; x, y, จำนวนเต็ม);

ส่วนตัว

{ประกาศส่วนตัว}

สาธารณะ

ประกาศส่วนตัว}

จบ;

วาจา

Form1: TFORM1;

oldx, oldy: จำนวนเต็ม;

การดำเนินการ

$ r *.dfm}

ขั้นตอน TFORM1.FormMousedOwn (ผู้ส่ง: tobject; ปุ่ม: tmouseButton;

Shift: tshiftstate; x, y: จำนวนเต็ม);

เริ่ม

oldx: = x;

เก่า: = y;

จบ;

ขั้นตอน TFORM1.FormMouSemove (ผู้ส่ง: tobject; ปุ่ม: tmouseButton

Shift: tshiftstate; x,

y: จำนวนเต็ม);

เริ่ม

ถ้า ssleft ในกะจากนั้น // กดปุ่มเมาส์ซ้าย

เริ่ม

form1.left: = form1.left+x oldx;

form1.top:=form1.top+y ally;

จบ;

จบ;

จบ.

รหัสของเคมีถูกทดสอบและผ่านใน Delphi5.0 และ Win98 SE