المشاركات : 12
المواضيع 6
:
: 0
الإنتساب : Nov 2011
السلام عليكم ورحمة الله وبركاته
لدي عدد محدد من ال button على الفورم واريد ان غير caption بحيث يحمل ام صنف معين مثلا عند ختيار ملابس رجال يتم وضع اسماء الملابس الرجالية على button وعند اختيار الملابس النسائية button يتم وضع اسماء الملابس النسائية وعند اختيار الاحذية يتم وضع اسماء الاحذية وهكذا
وجزاكم الله عنا خيرا
المشاركات : 628
المواضيع 72
:
: 211
الإنتساب : Jun 2010
وعليكم السلام
من اين يتم تحديد الاختيارات؟ أم أن كل زر يحمل صنف؟
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
المشاركات : 12
المواضيع 6
:
: 0
الإنتساب : Nov 2011
جزاك الله خيرا
علي سبيل المثال لو عندي عشر button على الفورم واريد ان اضع علي على هذه button اسماء السلع مثلا وليس بالضرورة ان يكون عدد ا لسلع 10 ربما 3 او 5 او غير ذلك لذا انا اريد استخدم loop بعدد السلع وداخل loop ايعامل مع اسم button على اساس انه string على النحو التالي
s=:'button '+i
بحيث نتعامل مع s وكأنها اسم button وليس بالضرورة ان تكون button ممكن ان تكون اي كوبنت اخر
المشكلة المذكورة يمكن حلها بواسطة ال case لكن ما اريده هو التعامل مع الكومبنت من خلال تحديد اسمه من داخل الكود
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
وعليكم السلام ورحمة الله وبركاته
يمكن استخدام FindComponent
مثال لديك عشرة مكونات Button وتغير اسماء الخمسة الاخيرة
كود :
Var
i: byte;
begin
For i:= 5 to 10 do
TButton(FindComponent('Button'+IntToStr(i))).Caption := 'Product '+IntToStr(i);
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 12
المواضيع 6
:
: 0
الإنتساب : Nov 2011
