जब मैं अपने ऑनक्लिक हैंडलर में बटन को नष्ट करता हूं तो मेरा प्रोग्राम क्रैश क्यों होता है?

Question

मैंने http://www.delphi-central.com/runtime.aspx चलाने और सफल होने वाली वेबसाइट से एक स्क्रिप्ट की कोशिश की।

---

private 
    { Private declarations } 
    procedure CustomButtonClick(Sender: TObject); 

---

procedure TForm1.AddNewButtonClick(Sender: TObject); 
var 
    NewButton : TButton; 
begin 
    NewButton := TButton.create(self); 

    with NewButton do 
    begin 
    Top := 30; 
    Width := 60; 
    Left := Width * (self.ControlCount-2); 
    Parent := self; 
    OnClick := CustomButtonClick; 
    Caption := 'Button '+ inttostr (self.ControlCount-2); 
    end; //With 
end; 

procedure TForm1.DeleteLastButtonClick(Sender: TObject); 
begin 
    if Self.ControlCount>2 then 
    TButton (Controls[ControlCount-1]).destroy; 
end; 

procedure TForm1.CustomButtonClick(Sender: TObject); 
begin  
    ShowMessage(TButton(Sender).caption + ' Pressed'); 
end; 

लेकिन अगर मैं OnClick,

OnClick := CustomButtonClick; ==> OnClick := DeleteLastButtonClick; 

बदल यह एक त्रुटि संदेश उत्पन्न होगा। यह कैसे हो सकता है ... ???

Answer 1

बेशक यह उछाल जाता है - यह तब होता है जब आप जिस शाखा पर बैठे हैं उसे काटते हैं।

आप उस नियंत्रण द्वारा उत्पन्न एक ईवेंट हैंडलर के अंदर नियंत्रण को मार नहीं सकते हैं।

ध्यान दें कि आप जिस नमूना से काम कर रहे हैं वह नहीं कस्टमबटन को हटाएं दिनचर्या पर क्लिक करें!

Answer 2

किसी ईवेंट हैंडलर को नियंत्रण के ऑब्जेक्ट पर फ़ंक्शन द्वारा बुलाया जाता है, और ईवेंट हैंडलर खत्म होने के बाद इसे निष्पादित करने के लिए और कोड हो सकता है। यदि आप नियंत्रण हटाते हैं, तो उस ऑब्जेक्ट का संदर्भ देने वाला कोई भी कोड एक्सेस उल्लंघन को बढ़ाने की संभावना है।

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

आपको एक नया संदेश प्रकार आईडी बनाने की आवश्यकता है। WM_USER + 1 काम करना चाहिए। पैराम में से एक को हटाए जाने वाले नियंत्रण का पता होगा। अपने फॉर्म पर एक संदेश हैंडलर सेट करें जो उस संदेश प्रकार को संभालता है और संदेश पैरामीटर में संदर्भित नियंत्रण को मुक्त करता है। और फिर ईवेंट हैंडलर में, इसे पोस्टमेसेज करें जो आपके फॉर्म पर संदेश है। इसे पहुंच उल्लंघन के बिना काम करना चाहिए।

Answer 3

यह सोचने में आसान लगता है, जब आप मानते हैं कि माउस बटन/कुंजी को छोड़ने के बाद सिस्टम को किसी भी तरह से बटन को फिर से खींचा जाना चाहिए। चूंकि आप क्लिक के दौरान पहले से ही बटन ऑब्जेक्ट को हटा रहे हैं, यह असफल हो जाएगा।

इसलिए ऑनक्लिक ईवेंट की प्रक्रिया के बाद आपको किसी भी तरह से बटन को हटाने का तरीका खोजने और सफलतापूर्वक समाप्त होने की आवश्यकता है।