下面的方法是放一个Button1,点它就可以全部选中CheckListBox1中的所有项。
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count -1 do
CheckListBox1.Checked[i]:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count -1 do
CheckListBox1.Checked[i]:=true;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货