如何让一个listbox中的某一数据通过一个BUTTON按钮转移到另一个listbox中去。

Question

现在有两个listbox，分别为listbox1,listbox2,和一个button。   窗体刚刚生成的时候，listbox1会自动从数据库中选择需要的数据列在listbox1里面，我想通过写一个button事件，来实现将我在listbox1中选中的某个数据添加到listbox2中去。也就是类似于某些网站注册时需要选择的东西一样。   那么，这个button事件该如何写哪？
   谢谢。

Answer 1

直接放在双击事件中不好吗？procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  while ListBox1.SelCount>0 do
    begin
      i:=ListBox1.ItemIndex;
      if ListBox1.Selected[i] then
        begin
          ListBox2.Items.Insert(0,ListBox1.Items[i]);
          ListBox1.Items.Delete(i);
        end;
    end;
end;