Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. Formu istenilen bir objeden sürükleme
// Bunu bir objenin on mousedown eventina koyarsaniz
// ve bu kodu eklerseniz o obejeye tiklayip formu sürükleye-
// bilirsiniz
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
end;