نمایش شماره چک باکسی که توسط کاربر بروی آن کلیک شده است

[khoshblagh]

با سلام خدمت دوستان
در یک CheckGroup میخواهم وقتی کاربر یک آیتم را انتخاب و روی باکس آن کلیک کرد، شماره آن آیتم را بدست بیاورم. در صورت امکان راهنمایی بفرمائید. متشکرم

[hp1361]

با سلام خدمت دوستان
در یک CheckGroup میخواهم وقتی کاربر یک آیتم را انتخاب و روی باکس آن کلیک کرد، شماره آن آیتم را بدست بیاورم. در صورت امکان راهنمایی بفرمائید. متشکرم

سلام

اگر منظورت شما کامپوننت 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;

[khoshblagh]

با سلام
نه منظورم من همان
CheckGroup است.

[hp1361]

با سلام
نه منظورم من همان
CheckGroup است.

همچین کامپوننتی جزو کامپوننت های پیش فرض نیست(دلفی توکیو) کامپوننت از کدوم مجموعه ست؟

[khoshblagh]

همچین کامپوننتی جزو کامپوننت های پیش فرض نیست(دلفی توکیو) کامپوننت از کدوم مجموعه ست؟

TRzCheckGroup

148730

[hp1361]

TRzCheckGroup

148730

در رویداد OnChange پارامتر Index به شماره آیتم کلیک شده اشاره میکنه(مقدار ایندکس از صفر شروع میشه)

برای اینکه تشخیص بدید باکس به حالت انتخاب رفته یا از حالت انتخاب خارج شده، از پارامتر TCheckBoxState در همون تابع میتونید استفاده کنید

موفق باشیم

[khoshblagh]

در رویداد OnChange پارامتر Index به شماره آیتم کلیک شده اشاره میکنه(مقدار ایندکس از صفر شروع میشه)

برای اینکه تشخیص بدید باکس به حالت انتخاب رفته یا از حالت انتخاب خارج شده، از پارامتر TCheckBoxState در همون تابع میتونید استفاده کنید

موفق باشیم
با سلام
میشه یکه نمونه فرضی ارائه نمائید. متشکرم

[hp1361]

با سلام
میشه یکه نمونه فرضی ارائه نمائید. متشکرم

در رویداد OnChange کامپوننت این کد رو بنویسید:


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;