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;
{
if(listview->Items->Item[i]->Selected)
{
listview->Items->item[i]->Caption;//取得选中的项
}
}一起删除是可以的
取:
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;