Как перетаскивать окна не за заголовок, а за любую точку?

← →
FlyingHome (2003-07-21 12:55) [0]

Помню, что где-то проскакивало, а найти не могу.
Как переопределить базовые методы формы?

← →
Immortal_Death (2003-07-21 13:57) [1]

http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=6568

← →
Caligula (2003-07-21 17:52) [2]

Обработать события OnMouseDown и OnDragOver, OnDragDrop

Не надо ничего переопределять, возми это. Кстати, можно повесить на любой стандартный контрол.

procedure TForm1.HeadMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SysCommand,$F012,0);
end;

И усе! Таскай, скока влезет!

Как перетаскивать окна не за заголовок, а за любую точку? Найти похожие ветки