ورود

View Full Version : آدرس دادن به یک ابزار حین اجرای برنامه



amirtofighi
چهارشنبه 03 مهر 1398, 10:50 صبح
سلام
میخواستم بپرسم آیا روشی وجود داره موقع اجرای برنامه بشه به ابزار خاص مراجعه کرد و اونو تغییر داد؟
برای روشن تر شدن سوال مثال میزنم:
فرض کنید ۱۰۰ تا tlabel و یک tedit قرار دادیم داخل فرم و از کاربر خواستیم یک عدد بین ۱ تا ۱۰۰ وارد کنه و بعد از وارد کردن عدد، label متناظر با اون عدد رنگش عوض بشه.
کدی که باید نوشته بشه یه چیز باید باشه تو این مایه ها:

label[strtoint(edit1.text)].colour:=clblue;
ولی خب این کدی که نوشتم برای آدرس دهی به label متناظر با اون عدد کار نمیکنه
میشه کمک کنید چطور باید آدرس بدم؟
ممنونم

یوسف زالی
چهارشنبه 03 مهر 1398, 11:21 صبح
سلام.
یک راهش اینه که کامپوننت های روی فرم رو پیمایش کنید
و اگر کلاسش با کامپوننت شما مطابقت داشت، اون رو بشمرید.

Mask
چهارشنبه 03 مهر 1398, 13:26 عصر
سلام
میخواستم بپرسم آیا روشی وجود داره موقع اجرای برنامه بشه به ابزار خاص مراجعه کرد و اونو تغییر داد؟
برای روشن تر شدن سوال مثال میزنم:
فرض کنید ۱۰۰ تا tlabel و یک tedit قرار دادیم داخل فرم و از کاربر خواستیم یک عدد بین ۱ تا ۱۰۰ وارد کنه و بعد از وارد کردن عدد، label متناظر با اون عدد رنگش عوض بشه.
کدی که باید نوشته بشه یه چیز باید باشه تو این مایه ها:

label[strtoint(edit1.text)].colour:=clblue;
ولی خب این کدی که نوشتم برای آدرس دهی به label متناظر با اون عدد کار نمیکنه
میشه کمک کنید چطور باید آدرس بدم؟
ممنونم
با اجازه مهندس زالی عزیز. اینشکلی هم میشه.

TLabel(FindComponent('Label'+ Edit1.Text )).font.Color := clred;

amirtofighi
یک شنبه 07 مهر 1398, 08:38 صبح
خیلی ممنون
واقعا عالی بود