पास्कल में एकाधिक बटनों के लिए एक प्रक्रिया का उपयोग करने का कोई तरीका है?

Question

मैं एकाधिक बटनों के लिए एक प्रक्रिया का उपयोग करने का एक तरीका ढूंढ रहा हूं। यह एक प्रश्नोत्तरी के लिए है जैसे आपको प्रश्न 1 के लिए बटन 1 दबा देना है, लेकिन 36 बटन के लिए पूरे कोड को कॉपी और पेस्ट करना और 36 बटन के लिए चर बदलना किसी के लिए वास्तव में मजेदार नहीं है।

तो मैंने सोचा कि कुछ इस तरह संभव हो जाएगा:

procedure TForm1.Button[x]Click(Sender: TObject); 
begin 
    DoTask[x]; 
end; 

एक्स चर जा रहा है।

क्या ऐसा कुछ संभव है या एक ही परिणाम प्राप्त करने के अन्य तरीके हैं?

Answer 1

यह करने के लिए सबसे आसान तरीका है:

1. संख्या आदेश उनमें आसानी से करने के लिए वस्तु इंस्पेक्टर (या जब वे बनाए रहे कोड में) में Tag संपत्ति का उपयोग कर बटन। (या उस बटन को असाइन करें जिसे आप अपनी प्रक्रिया/फ़ंक्शन पर पारित करना चाहते हैं, जब उस बटन पर क्लिक किया जाता है।)

2. एक ईवेंट हैंडलर बनाएं, और उसे उसी बटन द्वारा नियंत्रित किए जाने वाले सभी बटनों को असाइन करें।

3. Sender पैरामीटर प्राप्त होता है जो ईवेंट प्राप्त होता है बटन क्लिक किया जाएगा, जिसे आप TButton के रूप में डाला जा सकता है।

   procedure TForm1.ButtonsClick(Sender: TObject); 
   var 
       TheButton: TButton; 
   begin 
       TheButton := Sender as TButton; 
       DoTask(TheButton.Tag); 
   end;