Scrip Memindah Form Tanpa CaptionBar

Pagi Sahabat ilmu pagi ini ilmu akan memosting dari kelanjutan posting sebelumnya,,,kalau yang  sebelumnya cara menghilangkan captionbar denga rumus maka kali ini akan membahas scrip untuk membuat form tanpa captionbar agar bisa berpindah atau dipindah,,,karena jika tidak dikasih rumus atau scrip form tanpa caption bar ini tidak bisa dipindah/geser.

masuk delphinya sediakan form dan cari onmousedown di object inspector pada event

procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton; Shift:
TShiftState; X, Y: Integer); 
begin 
ReleaseCapture; 
SendMessage(Form1.Handle, wm_SysCommand,$f012,0); 

end;

selamat mencoba dan semoga berhasil....salam ilmu