Delphi, перемещение формы.

[north]

Как отловить перемещение формы(может есть такая процедура)?

[Alex21]

Было уже. Используем поиск.
http://programmersforum.ru/showthrea...hlight=perform

[mihali4]

Я вопрос понял по-другому...
Вот вариант решения:

Объявляем:
type 
    TForm1 = Class(TForm) 
        Private 
            Procedure OnMove(var Msg: TWMMove); Message WM_MOVE; 
...
end; 
...
Используем:
procedure TForm1.OnMove(var Msg: TWMMove ); 
begin 
    Inherited; 
    Label1.Caption:='Форму сдвинули...';
end;

[north]

mihali4, спасибо