添加的时候不要选就可以了if Not 条件符合 then checkboxes := True else exit;
只能在onclick中遍历 procedure Tform1.ListView1Click(Sender: TObject); var i:integer; begin for i:=0 to listview1.Items.Count-1 do if 条件=true then listview1.items[i].Checked:=true else listview1.items[i].Checked:=false; end;
checkboxes := True
else
exit;
procedure Tform1.ListView1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if 条件=true then
listview1.items[i].Checked:=true
else
listview1.items[i].Checked:=false;
end;