+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخدآم كلمة self لأدل على المكون, كيف؟ (/showthread.php?tid=1038)
الصفحات:
1
2
استخدآم كلمة self لأدل على المكون, كيف؟ - AL-MOB4RM3G - 11-07-2009
نعم شكرا كثيرا,,
منكم نستفيد اخواني الكرام,,
الآن سرت خطوة الى الآمام,,
عملت هذا الإجرآء تحت ال 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);
هل سيكون هو للبيت بوتون 3 ام 4 ؟ بلتئكيد هو للبيت بوتون 3 لأن الكود مكتوب فيه 3,, يعني يجب على انا ان اغير من 3 الى 4 حتى يعمل على الأربعة,,
كل شئ وآضح ؟
طيب الآن لنضرب مثآل,, عندي 200 بيت بوتون,,
ولكل وآحد سأغير
PHP كود :
buttPress(bitbtn3);
PHP كود :
buttPress(bitbtn4);
وحتى...............
PHP كود :
buttPress(bitbtn199);
PHP كود :
buttPress(bitbtn200);
هنا يجب ان اشير الى ان الحدث هو في OnClick لكل بيت بتن يعني لا ينفع ان استخدم لوووب
لكن فكرتي هي لا ادري ان كانت موجودة من الأصل,,
لكن هي ان اضع بكل بوتون في الحدث نفس الكود ويكون كمثال في الشكل التآلي,,
PHP كود :
buttPress(ThisBitBtn);
وآضح ؟
شكرا,, وآسف كثيرا على الغلبة وكثرت السؤآل,,
يعني بختصار اخواني الكرام,, انا ممكن ان اعمل كوبي باست للكود,,
لكن انا ابحث عن طريقة اكثر صحيحة
شكرا لكم
استخدآم كلمة self لأدل على المكون, كيف؟ - kachwahed - 11-07-2009
لو قرأت ما كتبته جيدا لما سألت هذا السؤال.
لن تحتاج الى procedure ولا إلى كتابة اسم المكون في كل مرة، الأمر أبسط من ذلك فكر جيدا.
استخدآم كلمة self لأدل على المكون, كيف؟ - AL-MOB4RM3G - 11-07-2009
kachwahed كتب :لو قرأت ما كتبته جيدا لما سألت هذا السؤال.
لن تحتاج الى procedure ولا إلى كتابة اسم المكون في كل مرة، الأمر أبسط من ذلك فكر جيدا.
نعم, معك حق اخي الكريم,,
هذا هو الكود النهآئي الآن ,,
PHP كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:= edit1.Text + (Sender as TButton).Caption;
end;
وأضعه في كل البوتونز
,, ما رئيك الآن؟
شكرا لكم جميعا وآسف مرة ثآنية على الغلبة
استخدآم كلمة self لأدل على المكون, كيف؟ - Delphawi - 13-07-2009
جزاك الله خيراً أخي kachwahed على طريقتك الجميلة
لكن هل هناك طريقة أسرع لعمل هذه العملية مرة واحدة فقط , وليس لكل الأزرار ؟
اي يوضع الكود في مكان واحد فقط , دون الحاجة إلى وضعه داخل كل زر
استخدآم كلمة self لأدل على المكون, كيف؟ - kachwahed - 13-07-2009
إقتباس :لكن هل هناك طريقة أسرع لعمل هذه العملية مرة واحدة فقط , وليس لكل الأزرار ؟نفس الملاحظة السابقة.