如何清除listbox中被选中的选项?

Question

如何清除listbox中被选中的选项?

Answer 1

var
  i:integer;
begin
  for i:=0 to listbox1.Items.Count-1 do
    listbox1.Selected[i]:=false;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
        i:integer;
begin
        for i:=listbox1.Count-1 downto 0 do
                if listbox1.Selected[i] then
                        listbox1.Items.Delete(i);
end;

Answer 3

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  listbox1.Items.Delete(listbox1.ItemIndex);
end;

Answer 4

listbox1.ItemIndex看看此属性，不用循环的；

Answer 5

呵呵，listbox1.Items.Delete(listbox1.ItemIndex);就OK了，
像TListBox, TComboBox等都有这样的一个属性，表示选中选项的Index值

Answer 6

                listbox1.Items.Delete(listbox1.ItemIndex);                        CSDN结贴联盟-版权所有

Answer 7

如果你是在MultiSelect=true时要循环的，因为你Delete一个后，ItemIndex所能达到的最大值会减