<<D>> я тоже так раньше делал, но лучше вот так
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { магический номер }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
|