डेल्फी: विंडो चाल के प्रारंभ और अंत का पता लगाएं

Question

मैं कुछ सरल एनिमेशन के लिए ऑनइडल-ईवेंट का उपयोग कर रहा हूं, और यह ठीक काम करता है। समस्या यह है कि जब उपयोगकर्ता विंडो को स्थानांतरित या आकार बदलना शुरू करता है, तो ऑनइड-इवेंट फायरिंग बंद कर देता है जब तक कि चाल/आकार बदलने का कार्य पूरा नहीं हो जाता है।

मुझे ऐसा होने पर पता लगाने की आवश्यकता है, ताकि मैं सभी एनिमेशन को रोक सकूं। लेकिन मैं खिड़की के आंदोलन का पता कैसे लगा सकता हूं?

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

डेल्फी कोड होगा:

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