Сообщество Чайников

Вопрос

Как сделать, чтобы окно программы перемещалось мышью, если держать его не только за заголовок, но и в любой точке внутри окна?

Ответ

Для перетаскивания формы не только за ее заголовок, можно использовать следующий обработчик события OnMouseDown формы:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Димыч