छोटी चाल: कर्सर पॉइंटर की स्वचालित बहाली

शुभ दोपहर, साथियों!

आप में से जो क्लाइंट एप्लिकेशन लिखते हैं, वे संभवतः उपयोगकर्ता को दिखाने के लिए कर्सर की उपस्थिति को बदलने की आवश्यकता पर आते हैं कि फिलहाल एप्लिकेशन किसी प्रकार का डेटा प्रोसेसिंग (लंबे या नहीं) कर रहा है या डेटाबेस से अनुरोध कर रहा है। मैं अपनी जिंदगी को आसान बनाने के लिए एक छोटी सी ट्रिक शेयर करना चाहता हूं। कट के तहत विवरण।

आपको अभी भी कर्सर दृश्य को स्वयं बदलना होगा, लेकिन आप स्वचालित रूप से कर्सर दृश्य को पुनर्स्थापित कर सकते हैं। निम्नलिखित कोड इसके लिए काम करेगा:

type ICursorSaver = interface end; TCursorSaver = class(TInterfacedObject, ICursorSaver) private FCursor: TCursor; public constructor Create; destructor Destroy; override; end; implementation constructor TCursorSaver.Create; begin FCursor := Screen.Cursor; end; destructor TCursorSaver.Destroy; begin Screen.Cursor := FCursor; inherited; end; 

अगला, कोड में सही जगह पर, ICursorSaver का एक प्रकार ICursorSaver और इसे इनिशियलाइज़ करें।

 var saveCursor: ICursorSaver; begin saveCursor := TCursorSaver.Create; Screen.Cursor := crSQLWait; //   ,    end; 

यह कैसे काम करता है? TInterfacedObject इंटरफ़ेस के लिंक पर नज़र रखता है, जब काउंटर शून्य पर गिर जाता है - विनाशकारी कहा जाता है। गुंजाइश की शुरुआत में, हम एक ऑब्जेक्ट बनाते हैं और वर्तमान कर्सर दृश्य को कैप्चर करते हुए, इसके साथ इंटरफ़ेस चर को इनिशियलाइज़ करते हैं। दायरे के अंत में, इंटरफ़ेस चर नष्ट हो जाता है, इंटरफ़ेस मुक्त हो जाता है, विध्वंसक कर्सर को अपनी मूल स्थिति में लौटाता है।

इस पद्धति का उपयोग न केवल कर्सर की स्थिति को बचाने के लिए किया जा सकता है, बल्कि किसी भी अन्य वस्तुओं की स्थिति को भी - केवल इस मामले में आपको ऑब्जेक्ट की गहरी प्रतिलिपि करने की आवश्यकता है।

UPD: सहकर्मी रोमिक और कोरेक ने कंसट्रक्टर में सीधे कर्सर दृश्य सेट करने का सुझाव दिया। फिर निर्माणकर्ता इस तरह दिखेगा:

 constructor TCursorSaver.Create(ACursor: TCursor = crHourGlass); begin FCursor := Screen.Cursor; Screen.Cursor := ACursor; end;