如何判断checklistbox中的具体某一项是否被选中？

Question

我用的是delphi7.0,其中checklistbox控件中如何得知哪一项元素是否被选中？

Answer 1

我用的是DELPHI6没有那个东西，但是我认为应该有个INDEX什么的可以读吧！

Answer 2

有index也没什么用呀，它类似于listbox，但每一项元素有check选择框（打V或空），我现在是判断它其中某一项的check是否被选中（打V）。

Answer 3

不知你们有测试过没有，我试过不行：
1、checklistbox.itesm[i]没有checked 的属性。

Answer 4

你用一下这样的
 if checklistbox1.checked[0]=true then
begin
end;

Answer 5

procedure TTransComOperatorForm.CheckListBox1Click(Sender: TObject);
begin
 case checklistbox1.ItemIndex of   
   0:begin
       执行你的语句
      end;
    1:begin
       执行你的语句
      end;
     ......
    end;

Answer 6

procedure TForm1.CheckListBox1Click(Sender: TObject);
var
  n:integer;
begin
  n:=checklistbox1.ItemIndex;
  if checklistbox1.Checked[n] then
    showmessage('第'+inttostr(n+1)+'项已选中!')
  else
    showmessage('第'+inttostr(n+1)+'未选中!');
end;//可以一试