高手帮帮忙! DELPHI中的CHECKLISTBOX控件,怎么取得被选复框的文本?(20分)

C

computerzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #1

我用DELPHI中的CHECKLISTBOX控件,我想在选择复选框时,取得项目文本,我是在OnClickCheck事件中写的
procedure TSearchDlg.CheckListBox1ClickCheck(Sender: TObject);
begin
//在复选框被单击时,取得文本
//
end;

 

M

moshengren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked then
Memo1.Lines.Add(CheckListBox1.Items);

end;

 

H

hefte

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #3

单击时取得相应项目的文本
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if checklistbox1.Checked[checklistbox1.ItemIndex] then
memo1.Lines.Add(checklistbox1.Items.Strings[checklistbox1.itemindex]);
end;

 

L

lsf520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #4

if checklistbox1.Checked[checklistbox1.ItemIndex] then
memo1.Lines.Add(checklistbox1.Items.Strings[checklistbox1.itemindex]);

 

C

computerzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #5

to hefte
Ok!