TCheckListBox的OnClickCheck如何使用？(88分)

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #1

OnClickCheck所带参数Sender我不太回用
我看帮助中说，
property OnClickCheck: TNotifyEvent
type TNotifyEvent = procedure (Sender: TObject) of object
其中Sender是指被clicked的component，
那么component是指TCheckListBox，还是
指TCheckListBox中的item,或者是其它什么
？
我的目的是想在选种了item时，根据所点击
的item，作出响应。（循环太笨）。
请多指教，有例子最好。

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #2

sender = tcheckListBox
当你选中的item时，用itemindex 表示当前被选中的item

TCheckListBox.Items.strings[TCheckListBox.ItemIndex] //返回当前选中item

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-22

• #3

Sender应该是TCheckListBox,你选中的Item时，用ItemIndex 表示当前被选中的是 Item .
使用简单例子:


procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
// CheckListBox1.Checked[CheckListBox1.Items.IndexOf()] ;
CheckListBox1.Checked[CheckListBox1.ItemIndex]
end;

 

B

BrainTwist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-22

• #4

来迟，可惜，赞成。

 

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #5

多人接受答案了。