请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

Description of your first forum.

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子xzb_97 » 星期四, 2006年5月11日 22:43


我用一个按纽点击一下就实现Checklistbox里面内容的全选,再点击一下就实现了全不选,那这个怎么写的出来呢?求大虾教我!
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子icola » 星期四, 2006年5月11日 23:13


全选
procedure TfrmMain.btnSelectAllClick(Sender: TObject);
var
 i:Integer;
begin
 for i:=0 to CLB1.Items.Count-1 do
 if not CLB1.Checked[i] then
   CLB1.State[i]:=cbChecked;
end;

全不选:
procedure TfrmMain.btnClearAllClick(Sender: TObject);
var
 i:Integer;
begin
 for i:=0 to CLB1.Items.Count-1 do
 if CLB1.Checked[i] then
   CLB1.State[i]:=cbUnChecked;
end;

CLB表示CheckListBox
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子szmh » 星期四, 2006年5月11日 23:13


procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
 if checklistbox1.Checked[0] then
 for i:=0 to CheckListBox1.Items.Count - 1 do
   CheckListBox1.Checked[i]:=false
 else
 for i:=0 to CheckListBox1.Items.Count - 1 do
   CheckListBox1.Checked[i]:=True;
end;
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子xzb_97 » 星期五, 2006年5月12日 00:03


谢谢,我想问一下,checklistbox1.Checked[0]是什么意思?
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子szmh » 星期五, 2006年5月12日 00:12


checklistbox1.Checked[0]就是checklistbox1中第一个checkbox的checked属性,就是这个
chechkbox是否被选择.
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子xzb_97 » 星期五, 2006年5月12日 00:26


谢谢szmh前辈,你有QQ吗?能否给我,我有问题的时候能适当的请教你,当然不会耽误你很多时间的,如果因为一些私人原因无法给我的话,我也很理解,谢谢你回答了我的问题,十分感谢!
 
 
 

请问关于Checklistbox的全选和全不选的问题(对于各位应该不是很难,请指教我这个菜鸟)

帖子xzb_97 » 星期五, 2006年5月12日 00:50


多人接受答案了。