本文整理自网络,侵删。
//全选
var
i:integer;
begin
Checklistbox1.MultiSelect:=True;
for i:=0 to checklistbox1.Items.Count-1 do
CheckListBox1.Checked[i] := True;
//删除选中记录
for i:=CheckListBox1.Items.Count-1 downto 0 do
if checklistbox1.Checked[i]=True then
Checklistbox1.Items.Delete(i);
//删除全部
Checklistbox1.MultiSelect:=True;
Checklistbox1.SelectAll;
Checklistbox1.DeleteSelected;
相关阅读 >>
Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标
Delphi学习sql语句 - insert、update、delete
Delphi “invalid floating point operation.”错误的解决方法
Delphi unknown picture file extension (.jpg) 错误提示
更多相关阅读请进入《Delphi》频道 >>