Delphi: Pencerenin başlangıcını ve sonunu sapta hareket edin

Question

Bazı basit animasyonlar için OnIdle olayını kullanıyorum ve her şey yolunda. Sorun, kullanıcı pencereyi hareket ettirmeye veya yeniden boyutlandırmaya başladığında, OnIdle olayı, taşıma/yeniden boyutlandırma işlemi tamamlanana kadar çalışmayı durdurur.

Bunun ne zaman olduğunu algılamalıyım, böylece tüm animasyonları duraklatabilirim. Ama pencerenin hareketini nasıl tespit edebilirim?

Answer 1

Ben mghie yorum ile gitmek istiyorum: animasyon için bir zamanlayıcı kullanın ve etkinleştirmek/ileti işleyicileri ile devre dışı bırakın. Senin durumunda

, aşağıdaki ileti işleyicileri eklemek isteyebilirsiniz: aktif çekirdek üzerinde% 100 cpu yükü neden olacağından

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

Bunu denemedim, ancak pencerenin ne zaman taşındığını söylemek için WM_WINDOWPOSCHANGING değerini kullanabileceğinizi söyleyebilirim. http://msdn.microsoft.com/en-us/library/ms632653(VS.85).aspx

Delphi kodu olacaktır:

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