[Casper-Hacker]

Сообщение от Blackster

привет.как сделать так чтобы можно было мышкой передвинуть форму взяв ёё в любом месте?

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Const SC_DragMove=$F012;
begin
    ReleaseCapture;
    perform (WM_SysCommand,SC_DragMove,0);
end;