Memindahkan Form yang Tidak Mempunyai Caption Bar

Untuk memindah form yang tidak mempunyai caption bar, tambahkan kode berikut pada event onMouseDown.


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

ReleaseCapture;
SendMessage(Form1.Handle, wm_SysCommand,$f012,0);

end;




back to tutorial delphi home....