CheckListBox的用法，多谢

CheckListBox的用法，谢谢
CheckListBox怎么使用啊？全选，全不选，判断选了哪些

谢谢

[解决办法]
CheckBox是个复选组件
选定:CheckBox1.Checked:=True;
判断是否选定:
if CheckBox1.Checked then //如果选定
begin
ShowMessage( 'CheckBox1已经选定! ');
end;
[解决办法]
今天接了您几十分，都有点不好意思接了...

procedure TForm1.Button1Click(Sender: TObject);//全选
var
I : integer;
begin
for I := 0 to CheckListBox1.Count-1 do
CheckListBox1.State[I] := cbChecked;
end;

procedure TForm1.Button2Click(Sender: TObject);//全不选
var
I : integer;
begin
for I := 0 to CheckListBox1.Count-1 do
CheckListBox1.State[I] := cbUnChecked;
end;

procedure TForm1.Button3Click(Sender: TObject);//在Memo里列出选中的行号(第一行号为0)
var
I : integer;
begin
for I := 0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked[I] then Memo1.Lines.Add(IntToStr(I)+ '行选中 ');
end;
[解决办法]
CheckListBox
全选:
for i:=0 to CheckListBox1.Count-1 do
begin
CheckListBox1.Checked[i]:=True;
end;
全不选:
for i:=0 to CheckListBox1.Count-1 do
begin
CheckListBox1.Checked[i]:=False;
end;
判断选了那些
for i:=0 to CheckListBox1.Count-1 do
begin
if CheckListBox1.Checked[i] then
ShowMessage(CheckListbox1.Items[i]+ '被选定！ ');
end;