//ListView删除选中的多项目
function
DeleteMultSelItems(ListView:TListView):Boolean;
var
I: Integer;
begin
Result:=False;
if ListView.Selected =nil then Exit;
for i :=
ListView.items.count-1
downto 0
do
begin
if ListView.items[i].selected then
begin
ListView.items[i].Delete;
Result:=True;
end;
end;
end;