PDA

View Full Version : چطور ميشه شماره يك كامپوننت را بدست آورد


mohsen_r
چهارشنبه 22 اردیبهشت 1389, 13:33 عصر
چطور ميشه شماره يك كامپوننت را بدست آورد من مي خوام وقتي وارد كامپوننت CheckListBox شدم شماره آنرا براي يك تابع بفرستم
لطفا راهنمائي؟
حمیدرضاصادقیان
چهارشنبه 22 اردیبهشت 1389, 13:46 عصر
یک متد به نام componentindex هست به صورت زیر استفاده کنید.


btnadd.componentindex;
mohsen_r
پنج شنبه 23 اردیبهشت 1389, 07:35 صبح
در تابع من اين دستور وجود دارد و مقدار علامت سوال بايد به اين تابع فرستاده بشود
tCheckListBox(components[?]).Checked[strtoint(key)-1]:=true
95 تا CheckListBox هست كه طبق جواب بايد علامت بخورد من هميشه به اين صورت استفاده مي كردم
CheckListBox1.Checked[strtoint(key)-1]:=true
كه خوب براي 95 بايد اين را تكرار كنم
mohsen_r
پنج شنبه 23 اردیبهشت 1389, 07:36 صبح
یک متد به نام componentindex هست به صورت زیر استفاده کنید.


btnadd.componentindex;


خطا ميگيره
حمیدرضاصادقیان
پنج شنبه 23 اردیبهشت 1389, 11:53 صبح
سلام.خوب دوست عزیز شما میتونی از روش زیر استفاده کنی.


for i:= 0 to componentcount -1 do
Begin
if (components[i] is Tcheckbox) Then
Tcheckbox(components[i]).checked(strtoint(key)-1) := True;
End;
mohsen_r
شنبه 25 اردیبهشت 1389, 07:16 صبح
سلام.خوب دوست عزیز شما میتونی از روش زیر استفاده کنی.


for i:= 0 to componentcount -1 do
Begin
if (components[i] is Tcheckbox) Then
Tcheckbox(components[i]).checked(strtoint(key)-1) := True;
End;



اين مال وقتي هست كه من تمام چك ليستهاي روي فرم رو پر كنم
ولي من مي خوام به هر سوالي كه جواب داده شد چك ليست همون سوال تيك بخوره
حمیدرضاصادقیان
شنبه 25 اردیبهشت 1389, 08:04 صبح
سلام. پس همون مورد اول که بهتون گفتم به کارتون میاد.اون یک مقدار integer برمیگردونه که میتونید توی یک متغیر ذخیره کنید یا در جای دیگری از اون مستقیم استفاده کنید.