با سلام خدمت دوستان
در یک CheckGroup میخواهم وقتی کاربر یک آیتم را انتخاب و روی باکس آن کلیک کرد، شماره آن آیتم را بدست بیاورم. در صورت امکان راهنمایی بفرمائید. متشکرم
Printable View
با سلام خدمت دوستان
در یک CheckGroup میخواهم وقتی کاربر یک آیتم را انتخاب و روی باکس آن کلیک کرد، شماره آن آیتم را بدست بیاورم. در صورت امکان راهنمایی بفرمائید. متشکرم
سلامنقل قول:
نوشته شده توسط khoshblagh
اگر منظورت شما کامپوننت CheckListBox هست، با این کد در رویداد OnClickCheck میتونید شماره ایندکس آیتم کلیک شده رو بدست بیارید:
TCheckListBox(Sender).ItemIndex
برای اینکه ببینید آیتم کلیک شده انتخاب شده است یا خیر نیز از این کد استفاده کنید:
CheckListBox1.Selected[ClickedItemIndex]
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
ClickedItemIndex: Integer;
IsSelected: Boolean;
begin
ClickedItemIndex := TCheckListBox(Sender).ItemIndex;
IsSelected := CheckListBox1.Selected[ClickedItemIndex];
end;
با سلام
نه منظورم من همانCheckGroup است.
همچین کامپوننتی جزو کامپوننت های پیش فرض نیست(دلفی توکیو) کامپوننت از کدوم مجموعه ست؟نقل قول:
نوشته شده توسط khoshblagh
TRzCheckGroupنقل قول:
نوشته شده توسط hp1361
ضمیمه 148730
در رویداد OnChange پارامتر Index به شماره آیتم کلیک شده اشاره میکنه(مقدار ایندکس از صفر شروع میشه)نقل قول:
نوشته شده توسط khoshblagh
برای اینکه تشخیص بدید باکس به حالت انتخاب رفته یا از حالت انتخاب خارج شده، از پارامتر TCheckBoxState در همون تابع میتونید استفاده کنید
موفق باشیم
با سلامنقل قول:
نوشته شده توسط hp1361
میشه یکه نمونه فرضی ارائه نمائید. متشکرم
در رویداد OnChange کامپوننت این کد رو بنویسید:نقل قول:
نوشته شده توسط khoshblagh
procedure TForm1.RzCheckGroup1Change(Sender: TObject; Index: Integer; NewState: TCheckBoxState);
begin
ShowMessage('Clicked checkbox Index : ' + IntToStr(Index));
case NewState of
cbUnchecked:
ShowMessage('Unchecked');
cbChecked:
ShowMessage('Checked');
cbGrayed:
ShowMessage('Grayed');
end;
end;