Delphi: Erkennen von Anfang und Ende des Fensters bewegen

Question

Ich verwende das OnIdle-Ereignis für einige einfache Animationen, und es funktioniert alles in Ordnung. Wenn der Benutzer jedoch beginnt, das Fenster zu verschieben oder seine Größe zu ändern, wird das OnIdle-Ereignis beendet, bis der Verschiebe-/Größenänderungsvorgang abgeschlossen ist.

Ich muss erkennen, wenn dies passiert, so dass ich alle Animationen anhalten kann. Aber wie erkenne ich die Bewegung des Fensters?

Answer 1

ich mit mghie Kommentar gehen würde: einen Timer für die Animation verwenden, und aktivieren/deaktivieren Sie es mit Meldungshandler.

In Ihrem Fall sollten Sie die folgende Meldung Handler hinzuzufügen:

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

Ich habe das nicht versucht, aber ich würde sagen, Sie könnten wahrscheinlich WM_WINDOWPOSCHANGING verwenden, um zu sagen, wenn das Fenster verschoben wird. http://msdn.microsoft.com/en-us/library/ms632653(VS.85).aspx

Delphi-Code wäre:

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