Delphi: detecta el inicio y el final del movimiento de ventana

Question

Estoy usando el evento OnIdle para algunas animaciones simples, y funciona bien. El problema, sin embargo, es cuando el usuario comienza a mover o cambiar el tamaño de la ventana, el evento OnIdle deja de disparar hasta que se completa la operación mover/cambiar tamaño.

Necesito detectar cuando sucede esto, para poder detener todas las animaciones. ¿Pero cómo detecto el movimiento de la ventana?

Answer 1

me gustaría ir con mghie comentario: utilizar un temporizador para la animación, y activar/desactivar con controladores de mensajes.

En su caso, es posible que desee agregar los siguientes controladores de mensajes:

//fired when starting/ending a "move" or "size" window 
procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE; 
procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE; 


    procedure TForm.WMEnterSizeMove(var msg: TMessage); 
    begin 
    AnimationTimer.Enabled := false; 
    inherited; 
    end; 

    procedure TForm.WMExitSizeMove(var msg: TMessage); 
    begin 
    AnimationTimer.Enabled := true; 
    inherited; 
    end; 

Answer 2

No he intentado esto, pero diría que probablemente puedas usar WM_WINDOWPOSCHANGING para saber cuándo se está moviendo la ventana. http://msdn.microsoft.com/en-us/library/ms632653(VS.85).aspx

código de Delphi sería:

TSomeForm = class(TForm) 
protected 
    ... 
    procedure WindowPosChanging(var Msg : TMessage); message WM_WINDOWPOSCHANGING; 
    ... 
end;