Mega Code Archive

 

Categories / Delphi / Forms

 

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;