استخدآم كلمة self لأدل على المكون, كيف؟

[AL-MOB4RM3G]

نعم شكرا كثيرا,,

منكم نستفيد اخواني الكرام,,

الآن سرت خطوة الى الآمام,,

عملت هذا الإجرآء تحت ال implementation

PHP كود :

Procedure buttPress(sender: TBitBtn);
begin
  TBitBtn(Sender).Caption := '&OK';
end; 


وفي البيت بوتون وضعت هذا,,

PHP كود :

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
buttPress(bitbtn3);
end; 


بقي آمر صغير وتكون الفكرة قد اكتملت,,

في البيت بوتون هناك الكود

PHP كود :

buttPress(bitbtn3); 


اي انه محدد ان هذا سيحدث مع البيت بتن 3 كما هو وآضح في الكود,,

لكن للتنبيه, نحن الآن نكتب الكود في البيت بتن,.,, اليس كذلك,,؟

طيب لو عملنا كوبي للكود

PHP كود :

buttPress(bitbtn3); 


ووضعناه في بيت بوتون 4,,

هل سيكون هو للبيت بوتون 3 ام 4 ؟ بلتئكيد هو للبيت بوتون 3 لأن الكود مكتوب فيه 3,, يعني يجب على انا ان اغير من 3 الى 4 حتى يعمل على الأربعة,,

كل شئ وآضح ؟

طيب الآن لنضرب مثآل,, عندي 200 بيت بوتون,,

ولكل وآحد سأغير

PHP كود :

buttPress(bitbtn3); 


PHP كود :

buttPress(bitbtn4); 


وحتى...............

PHP كود :

buttPress(bitbtn199); 


PHP كود :

buttPress(bitbtn200); 


هنا يجب ان اشير الى ان الحدث هو في OnClick لكل بيت بتن يعني لا ينفع ان استخدم لوووب

لكن فكرتي هي لا ادري ان كانت موجودة من الأصل,,
لكن هي ان اضع بكل بوتون في الحدث نفس الكود ويكون كمثال في الشكل التآلي,,

PHP كود :

buttPress(ThisBitBtn); 


وآضح ؟

شكرا,, وآسف كثيرا على الغلبة وكثرت السؤآل,,
يعني بختصار اخواني الكرام,, انا ممكن ان اعمل كوبي باست للكود,,

لكن انا ابحث عن طريقة اكثر صحيحة

شكرا لكم

[kachwahed]

لو قرأت ما كتبته جيدا لما سألت هذا السؤال.
لن تحتاج الى procedure ولا إلى كتابة اسم المكون في كل مرة، الأمر أبسط من ذلك فكر جيدا.

[AL-MOB4RM3G]

لو قرأت ما كتبته جيدا لما سألت هذا السؤال.
لن تحتاج الى procedure ولا إلى كتابة اسم المكون في كل مرة، الأمر أبسط من ذلك فكر جيدا.

نعم, معك حق اخي الكريم,,

هذا هو الكود النهآئي الآن ,,

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:= edit1.Text + (Sender as TButton).Caption;
end; 


وأضعه في كل البوتونز

,, ما رئيك الآن؟

شكرا لكم جميعا وآسف مرة ثآنية على الغلبة

[Delphawi]

جزاك الله خيراً أخي kachwahed على طريقتك الجميلة

لكن هل هناك طريقة أسرع لعمل هذه العملية مرة واحدة فقط , وليس لكل الأزرار ؟
اي يوضع الكود في مكان واحد فقط , دون الحاجة إلى وضعه داخل كل زر

[kachwahed]

لكن هل هناك طريقة أسرع لعمل هذه العملية مرة واحدة فقط , وليس لكل الأزرار ؟

نفس الملاحظة السابقة.