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

[whqcfp]

同上！！！

[hiflower]

Listbox1.DeleteSelected 完全搞定

[sukun]

该结贴了吧，listbox.deleteselected;

[whqcfp]

最好请给出源程序！谢谢

[IwantFlay]

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

inc(i);
end;

[whqcfp]

to IwantFlay(我很爱她!!!!!!!!!!) :

出现如下的错误：
list index out of bounds(9)

怎么办？

[whqcfp]

这么简单的问题都没有人回答？？？

[cnhgj]

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

[cnhgj]

或直接listbox1.DeleteSelected;

[duxin]

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

[timgreen]

受教

[jenemery]

ListBox.DeleteSelected(ListBox.SelectItemIndex);

[whqcfp]

to all:
没有这个方法：DeleteSelected

[duxin]

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

[jog81]

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

[oupj]

listbox1.DeleteSelected;

[qianguob]

上面应该可以了，

[maoyesky]

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;

[whqcfp]

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

请问是怎么回事？

[hiflower]

如果确实没有，那就程序做吧

for i:=ListBox1.Items.Count-1 downto 0 do
begin
if ListBox1.Selected[i] then
ListBox1.Items.Delete(i);
end;