फायरमोनकी के साथ, उपयोगकर्ता को प्रतिक्रिया कैसे दें? (CrHourglass)

Question

आमतौर पर, जब मैं एक काम जो कुछ समय लगता है, मैं एक स्क्रिप्ट इस तरह का उपयोग करें: कर्सर:

procedure Work; 
var 
    cPrevious: TCursor; 
begin 
    cPrevious  := Screen.Cursor; 
    Screen.Cursor := crHourGlass; 

    try  
    // the task 

    finally  
    Screen.Cursor := cPrevious; 
    end; 
end; 

FireMonkey साथ

, स्क्रीन एक संपत्ति नहीं है।

उपयोगकर्ता को कुछ प्रतिक्रिया देने का सबसे अच्छा तरीका क्या है?

:

---

---

मैं टिप्पणियों और जवाब ... एक TPanel जो कम अस्पष्टता है, और एक TAniIndicator साथ (मैं भी अन्य घटकों को धुंधला) का पालन किया

धन्यवाद!

Answer 1

@mjn की तरह इंगित किया गया है, कांच का समय कर्सर अब एकमात्र प्रतीक्षा पैटर्न नहीं है जिसका आप उपयोग कर सकते हैं।

उदाहरण के लिए, Silverlight/WPF में, आप एक व्यस्त सूचक नियंत्रण का उपयोग कर सकते हैं, http://www.codeproject.com/KB/silverlight/SilverlightBusyIndicator.aspx

तो तुम FireMonkey अंदर कुछ इसी तरह करने की कोशिश कर सकते हैं। आपके लिए पहले से उपयोग करने के लिए एक समान नियंत्रण हो सकता है, या आप अपना खुद का लिख ​​सकते हैं।

Answer 2

FireMonkey TScreen कोई कर्सर संपत्ति है, लेकिन वैश्विक मंच उदाहरण एक SetCursor विधि है:

FMX.Platform, System.UITypes उपयोग करता है;

... Platform.SetCursor (शून्य, crHourGlass); आज़माएं ... अंत में प्लेटफ़ॉर्म.SetCursor (शून्य, crDefault); अंत;

Answer 3

यह XE3 पर मेरे लिए काम करता है, FireMonkey2 XP पर चल रहा है:

`Application.MainForm.Cursor:= crHourGlass;`