Delphi CheckListBox用法 文章來源于《傻貓網絡日志》 https://www.samool.com/41856.html

CheckListBox如何設定行高？

預設設定是 lbStandard 或者 lbOwnerDrawVariable 會忽略你的行高設定值的

改為lbOwnerDrawFixed 屬性即可

删除：CheckListBox.DeleteSelected;

上下移： CheckListBox.Items.Move

删除用

CheckListBox1.Items.Delete(Index);

上下移動用

CheckListBox1.Items.Move(CurrentIndex,NewIndex);

//在項目中添加字元串(子項目的最後一位接着添加)

CheckListBox1.Items.Add(edit1.Text); 

      

//全選 高亮選中Selected

CheckListBox1.MultiSelect := True;
 CheckListBox1.SelectAll;
      

//全選 Checked All

procedure TForm1.Button11Click(Sender: TObject);

var i :integer;

begin

for i := 0 to CheckListBox1.Items.Count - 1 do

begin
  CheckListBox1.Checked[i] := True;//反選設定為False
end;      

end;

//讓第n行被高亮選中

CheckListBox1.Selected[1]:=true;//第2行

//取消高亮選中

CheckListBox1.ClearSelection;

//第3行的項目灰色不可用

CheckListBox1.ItemEnabled[2] := False;//True可用

//删除高亮選中的項目，(隻管高亮選中就會被删除，和checked是否無關)

CheckListBox1.DeleteSelected;//删除選中項目，即使該給項目 沒勾上也會被删除
      

//删除已勾選的中項目

procedure TForm1.Button5Click(Sender: TObject);

var i : integer;

begin

for i := CheckListBox1.Items.Count-1 downto 0 do //從後面往前面删

begin

if CheckListBox1.Checked[i] then

begin
     CheckListBox1.Items.Delete(i);
  end;      

//清空項目

CheckListBox1.Items.Clear;

//将CheckListBox1的全部添加到CheckListBox2的Items中

procedure TForm1.Button1Click(Sender: TObject);

var

i:Integer;

CheckListBox2.Items.Clear;

for i := CheckListBox1.Items.Count - 1 downto 0 do

CheckListBox2.Items.Add(CheckListBox1.Items[i]);