multselect设为true
取:
for i:= 0 to ListView1.Items.count -1 do
begin
if Listview1.Selected then Listbox1.add(ListView1.Items[i].text;
end;
删除:procedure TForm1.BitBtndelClick(Sender: TObject);
var
TempItem : TListItem;
begin
if Listview1.Items.Count <= 0 then exit;
TempItem := Listview1.Selected;
while Tempitem<>nil do
begin
TempItem.Free;
TempItem := Listview1.Selected;
end;
end;