Rabu, 12 Januari 2011 Delphi - Memindah Form

Memindahkan form yang tidak ada borderstylenya,, mas dap cukup mengetikan

sebelumnya ketik

procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;

pada privat

dan scribnya sebagai berikut...


procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);

begin
  // Call default procedure
  inherited;
  // Modify result to make windows think we're
  // clicking on the titlebar when we're actually
  // clicking on the client area...
  if Msg.Result = HTCLIENT then
   Msg.Result := HTCAPTION;
end;


untuk lebih jelasnya, silakan mas dap download sendiri..