有关ListBox的问题！！！急啊！

Question

我现在有两个ListBox，我想把一个ListBox中选中的内容通过一个button按钮放到另一个ListBox中。应该怎么做呢？？
它的selected属性要有index，但是我怎么知道会选第几个呢？
大侠们看看应该怎么写？？？急啊！！！

Answer 1

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