请高手提供一个CHECKLISTBOX的例子，谢谢！

Question

多谢了！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;type
  TForm1 = class(TForm)
    CheckListBox1: TCheckListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=1 to 9 do
   CheckListBox1.Items.Add(IntToSTr(i));
end;procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to CheckListBox1.Count-1 do
   if ChecklistBox1.Checked[i] then
      ShowMessage(CheckListBox1.Items.Strings[i]);
end;end.

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I:integer;
begin
  for I:=0 to  CheckListBox1.Items.Count-1 do
  begin
    if (I mod 2) =0 then
    begin
      CheckListBox1.ItemEnabled[I]:=True;
      CheckListBox1.Checked[I]:=True;
    end
    else
    begin
      CheckListBox1.ItemEnabled[I]:=False;
      CheckListBox1.Checked[I]:=False;
    end;
  end;
end;