Ketika pemrograman, kadang -kadang, untuk tujuan kebutuhan, perbatasan formulir akan diatur ke bsnone, yaitu bentuk tanpa judul. Tetapi dengan cara ini, karena tanpa bilah judul, Anda tidak dapat menyeret formulir. Bahkan, kita hanya perlu menggunakan metode berikut untuk menyeret formulir dengan lancar.
Ditambahkan ke acara Onmousedown
Oldx: = x;
Oldy: = u;
Ditambahkan ke acara OnMouseMove
Form1. Left: = Form1.Left+X-oldx;
Form1.top:=Form1.top+y-oldy;
## 1 pembuatan kode adalah sebagai berikut:
unit unit1;
antarmuka
penggunaan
Windows, pesan, sysutils, kelas, grafik, kontrol, formulir, dialog;
jenis
Tform1 = class (tform)
Prosedur Formmousedown (Pengirim: Tobject; Tombol: Tmousebutton;
Shift: tshiftstate; x, y, integer);
Prosedur FormMouseMove (pengirim: Tobject; Tombol: Tmousebutton;
Shift: tshiftstate; x, y, integer);
Pribadi
{Deklarasi Pribadi}
publik
Deklarasi pribadi}
akhir;
var
Form1: tform1;
Oldx, Oldy: Integer; // Tentukan variabel global
Pelaksanaan
$ R *.dfm}
Prosedur TFORM1.FORMMOUSEDOWN (Pengirim: TOBJEK; Tombol: Tmousebutton;
Shift: tshiftstate; x, y: integer);
Mulai
Oldx: = x;
Oldy: = y;
akhir;
Prosedur TFORM1.FORMMOUSEMOVE (Pengirim: TOBJEKS; Tombol: Tmousebutton
Shift: Tshiftstate; x,
Y: Integer);
Mulai
Jika SSLEFT sedang bergeser maka // tekan tombol kiri mouse
Mulai
Form1. Left: = Form1.Left+X-oldx;
Form1.top:=Form1.top+y-oldy;
akhir;
akhir;
akhir.
Kode chemos diuji dan diteruskan di Delphi5.0 dan Win98 SE.