+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف التعامل الكومبنت من خلال اسمه في الكود (/showthread.php?tid=8054)
كيف التعامل الكومبنت من خلال اسمه في الكود - ابومنذر2007 - 02-08-2016
السلام عليكم ورحمة الله وبركاته
لدي عدد محدد من ال button على الفورم واريد ان غير caption بحيث يحمل ام صنف معين مثلا عند ختيار ملابس رجال يتم وضع اسماء الملابس الرجالية على button وعند اختيار الملابس النسائية button يتم وضع اسماء الملابس النسائية وعند اختيار الاحذية يتم وضع اسماء الاحذية وهكذا
وجزاكم الله عنا خيرا
RE: كيف التعامل الكومبنت من خلال اسمه في الكود - لؤي - 02-08-2016
وعليكم السلام
من اين يتم تحديد الاختيارات؟ أم أن كل زر يحمل صنف؟
RE: كيف التعامل الكومبنت من خلال اسمه في الكود - ابومنذر2007 - 03-08-2016
جزاك الله خيرا
علي سبيل المثال لو عندي عشر button على الفورم واريد ان اضع علي على هذه button اسماء السلع مثلا وليس بالضرورة ان يكون عدد ا لسلع 10 ربما 3 او 5 او غير ذلك لذا انا اريد استخدم loop بعدد السلع وداخل loop ايعامل مع اسم button على اساس انه string على النحو التالي
s=:'button '+i
بحيث نتعامل مع s وكأنها اسم button وليس بالضرورة ان تكون button ممكن ان تكون اي كوبنت اخر
المشكلة المذكورة يمكن حلها بواسطة ال case لكن ما اريده هو التعامل مع الكومبنت من خلال تحديد اسمه من داخل الكود
RE: كيف التعامل الكومبنت من خلال اسمه في الكود - محمد عبد العزيز - 05-08-2016
وعليكم السلام ورحمة الله وبركاته
يمكن استخدام FindComponent
مثال لديك عشرة مكونات Button وتغير اسماء الخمسة الاخيرة
كود :
Var
i: byte;
begin
For i:= 5 to 10 do
TButton(FindComponent('Button'+IntToStr(i))).Caption := 'Product '+IntToStr(i);
end;RE: كيف التعامل الكومبنت من خلال اسمه في الكود - ابومنذر2007 - 13-08-2016
جزاك الله خيرا