这个东东不常用，不知道怎么用的，不知那位朋友有用过

Question

在设计权限管理时我是用的TCheckListBox这个控件，所有的菜单项目都放在Checklistbox中显示，
我在窗体中有一个全部选中的按钮，我现在想实现当我单击全部选中这个按钮时，Checklistbox中的所有
项目均被选中，请问该如何做，
   烦请提供详细的代码，谢谢！首先想说一下：
for i:=0 to CheckListBox.items.count-1 do
 begin
　　CheckListBox.items[i].checked:=true;
 end;
这样写是错误的，我已试过了

Answer 1

CheckListBox.items[i].checked:=true;
改成
Checked[i]:=true;
试试

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to CheckListBox1.Count-1 do
  begin
    CheckListBox1.Checked[i] := True;
  end;end;