5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lastlove 2001-12-26
- 打赏
- 举报
baddy,你开玩笑吧
baddy 2001-11-19
- 打赏
- 举报
checklistbox1.selectall
superatom 2001-11-19
- 打赏
- 举报
有一个SelCount，表示选中了多少个，但是可能你说的是checked属性，没有关于指示全部Checked的属性，你还是用个循环判断一下吧
taxi 2001-11-19
- 打赏
- 举报
procedure TForm1.IsCheckAll(ACheckListBox): boolean;
begin
i, iCount: integer;
begin
iCount := 0;
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
inc(iCount);
result := iCount = CheckListBox1.Items.Count;
end;
begin
i, iCount: integer;
begin
iCount := 0;
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
inc(iCount);
result := iCount = CheckListBox1.Items.Count;
end;
