Событие TForm

[HTL]

Какое события выполняется при изменение месторасположения формы на рабочем столе?

Зы: OnDragDrop не работает.

[Пепел Феникса]

вроде OnResize

[HTL]

Сообщение от Пепел Феникса

вроде OnResize

Вроде бы это событие происходит при изменение размеров, сейчас проверю

Да, только при изменение размера

[Neeter]

Ловите сообщение WM_MOVE.

...

 private
    procedure WMMove(var Msg: TMessage); message WM_MOVE;

...

procedure TForm1.WMMove(var Msg: TMessage);
begin
 inherited;
 //ваш код
end;

[mihali4]

Как узнать, была ли перемещена форма

(...) 

type 
    TfrmMain = Class( TForm ) 
        Private 
            Procedure OnMove( Var Msg : TWMMove ); Message WM_MOVE; 
end; 

(...) 

procedure TfrmMain.OnMove( Var Msg : TWMMove ); 
begin 
    Inherited; 
    (...) 
end; 

(...)