德尔福：检测窗口移动的开始和结束

Question

我对一些简单的动画使用OnIdle事件，它工作正常。 但是，麻烦在于，当用户开始移动窗口或调整窗口大小时，OnIdle事件停止发射，直到移动/调整大小操作完成。

我需要检测何时发生这种情况，以便我可以暂停所有动画。但是，如何检测窗户的移动？

Answer 1

我与mghie评论去：使用计时器的动画，并激活/使用消息处理程序停用。

在你的情况，你可能需要添加下面的消息处理程序：

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

我还没有试过这个，但我会说你可以使用WM_WINDOWPOSCHANGING来告诉窗口何时被移动。 http://msdn.microsoft.com/en-us/library/ms632653(VS.85).aspx

Delphi代码将是：

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