Mega Code Archive

 

Categories / Delphi / Forms

 

Form baslik yerine tüm yüzeyden nasil sürüklenir

{ Asagidaki kodun form üzerindeki tüm bilesenlerin onmousedown event handler'ina konulmasi gerekir } procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Form1.perform(WM_SYSCOMMAND, $F012, 0); end;