菜鸟问题：怎么样删除 ListBox 中选取的项（用Shift or ctrl）???

Question

同上！！！

Answer 1

i:=0;
    while listbox1.SelCount>0 do
    begin
      if listbox1.Selected[i] then
         listbox1.items.Delete(i);      inc(i);
    end;

Answer 2

to IwantFlay(我很爱她!!!!!!!!!!) :出现如下的错误：
  list index out of bounds(9)
  
  怎么办？

Answer 3

listbox1.Selected[listbox1.itemindex] :=true;
  listbox1.DeleteSelected;

Answer 4

cnhgj(戏子)很正确 没有必要多写代码  ListBox1.DeleteSelected 没问题

Answer 5

ListBox.DeleteSelected(ListBox.SelectItemIndex);

Answer 6

to all:
没有这个方法：DeleteSelected

Answer 7

没有ListBox1.DeleteSelected  ？？  不要开玩笑

Answer 8

楼主，怎么会没有Listbox1.DeleteSelected？？？
我也是这么用法呀！
我看你要重装系统了:)

Answer 9

Listbox1.DeleteSelected 完全搞定

Answer 10

该结贴了吧，listbox.deleteselected;

Answer 11

我用的是 Delphi5!
使用 listbox.deleteselected 方法就出错！
[Error] uTakemeter.pas(126): Undeclared identifier: 'deleteselected '请问是怎么回事？

Answer 12

如果确实没有，那就程序做吧
 
for i:=ListBox1.Items.Count-1 downto 0 do
begin
  if ListBox1.Selected[i] then
    ListBox1.Items.Delete(i);
end;

Answer 13

function ListBox1_Dlt_Select(var NowCount: Integer;NowListBox:TListBox): Integer;
var
  I:Integer;
begin
  for i:=0 to NowCount do
    if NowListBox.Selected[i] then
    begin
      NowListBox.Items.Delete(i);
      NowCount := NowCount - 1;
      ListBox1_Dlt_Select(NowCount,NowListBox);
      Exit;
    end;
end;
procedure TMainFrm.LotNo5Click(Sender: TObject);
var
  NowCount:Integer;
  NowListBox:TListBox;
begin
  NowListBox := ListBox1;
  NowCount := ListBox1.Items.Count - 1;
  ListBox1_Dlt_Select(NowCount,NowListBox);
end;