डेल्फी: क्या यह फ़ॉर्म को स्वयं मुक्त करने के लिए ठीक है?

Question

मेरे पास एक ऐसा फॉर्म है जिसका उपयोग मैं कुछ सेकंड के लिए कुछ जानकारी दिखाने के लिए करता हूं। क्या फॉर्म खुद को मुक्त करने के लिए ठीक है? क्या मैं कन्स्ट्रक्टर में टाइमर शुरू कर सकता हूं, और फिर टाइमर-इवेंट में self.free को कॉल कर सकता हूं? या क्या यह संभावित रूप से परेशानी का कारण बन जाएगा?

Answer 1

इसके अतिरिक्त, एक फॉर्म के साथ आप रिलीज कॉल कर सकते हैं।

यह फ़ॉर्म में एक CM_RELEASE संदेश भेजता है। एक प्रतिक्रिया के रूप में यह मुफ्त कहते हैं। रिलीज का लाभ यह है कि फ़ॉर्म के लिए कोई संदेश नहीं छोड़ा गया है जिसके परिणामस्वरूप क्रैश हो सकता है।

Answer 2

मेरे पास ऑब्जेक्ट्स का पूरा सूट है जो स्वयं को मुक्त करता है, और मैंने उन पर विभिन्न परीक्षण चलाए हैं जिनमें कोई समस्या/रिसाव नहीं दिखाया गया है। एक TForm अधिक जटिल हो सकता है, लेकिन जब तक Self.Free() अंतिम कॉल किया जाता है, तो आपको सुरक्षित होना चाहिए।

(उन लोगों के लिए जो सोचते हैं कि मेरे पास क्यों ऑब्जेक्ट है जो खुद को मुक्त करते हैं; मैं उन्हें सिस्टम के चारों ओर बहुत पास करता हूं, इसलिए मैंने अपनी संदर्भ गिनती योजना द्वारा कार्यान्वित किया। जब अंतिम संदर्भ जारी किया जाता है, तो ऑब्जेक्ट खुद को मुक्त करता है)।

Answer 3

आप खुद को मुक्त करने के प्रपत्र बना सकते हैं जब यह उपयोगकर्ता द्वारा या कोड से बंद कर दिया जाता है:

procedure TForm27.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action := caFree; 
end; 

procedure TForm27.FormCreate(Sender: TObject); 
begin 
    Timer1.Enabled := True; 
end; 

procedure TForm27.Timer1Timer(Sender: TObject); 
begin 
    Timer1.Enabled := False; 
    Close; 
end; 

सुनिश्चित करें कि आप आवेदन शटडाउन बैठाना निर्माता को स्वामी की आपूर्ति करते हैं और प्रपत्र पर नष्ट कर दिया नहीं है समय। स्वामी खुद को मुक्त करने से पहले फॉर्म को मुक्त कर देगा।

Answer 4

यह बिल्कुल इंटरफेस के साथ किया जाता है।