Delphi: Détecter le début et la fin du déplacement de la fenêtre

Question

J'utilise l'événement OnIdle pour des animations simples, et ça marche. Le problème, cependant, est que lorsque l'utilisateur commence à déplacer ou redimensionner la fenêtre, l'événement OnIdle arrête de se déclencher jusqu'à ce que l'opération de déplacement/redimensionnement soit terminée.

J'ai besoin de détecter quand cela se produit, afin que je puisse mettre en pause toutes les animations. Mais comment puis-je détecter le mouvement de la fenêtre?

Answer 1

je partirais avec mghie commentaire: utiliser une minuterie pour l'animation, et activer/désactiver avec les gestionnaires de messages.

Dans votre cas, vous pouvez ajouter les gestionnaires de messages suivants:

//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

Je n'ai pas essayé cela, mais je dirais que vous pourriez probablement utiliser WM_WINDOWPOSCHANGING pour dire quand la fenêtre est déplacée. http://msdn.microsoft.com/en-us/library/ms632653(VS.85).aspx

code Delphi serait:

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