估计只能遍历了,这是ListView中的DeleteSelected方法的实现源码,它也是通过遍历来实现的。
Items.BeginUpdate;
try
for I := Items.Count - 1 downto 0 do
if Items[I].Selected then
Delete(Items[I]);
finally
Items.EndUpdate;
end;
var
Item: TListItem;
begin
Item := AListView.Selected;
while Item <> nil do
begin
Item := AListView.GetNextItem(Item, sdAll, [isSelected]);
//此时Item就是其中的一个选择的Item,可以对其进行任何操作
end;
end;
估计只能遍历了,这是ListView中的DeleteSelected方法的实现源码,它也是通过遍历来实现的。
Items.BeginUpdate;
try
for I := Items.Count - 1 downto 0 do
if Items[I].Selected then
Delete(Items[I]);
finally
Items.EndUpdate;
end;
******************
错了错了!!
while ListView1.SelCount>0 do
ListView1.Selected.Delete;