Question

delphi中listbox1中内容移动到listbox2

一个按钮,点击后listbox1中选中内容移动到listbox2中,另外一个按钮,让所有移动全部重置
chriss1225 谢谢,这样的话如果在list1中选了多项的话就不行了,只会移动其中一项,而且选中一项点击多下移动按钮的话就会复制出很多.

Answer 1

　　//移动
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　listbox2.Items.add(listbox1.Items[listbox1.itemindex]);
　　listbox1.DeleteSelected;
　　end;

　　//重置
　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　i: integer;
　　begin
　　if listbox2.count > 0 then
　　for i := 0 to listbox2.Count - 1 do
　　begin
　　application.ProcessMessages;
　　listbox1.Items.Add(listbox2.Items[i]);
　　end;
　　listbox2.clear;
　　end;

　　是否重置的顺序也要一样？？
　　如果顺序也一样的话就用下面的
　　var
　　Form1: TForm1;
　　list: TSTringlist;

　　implementation

　　{$R *.dfm}

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　listbox2.Items.add(listbox1.Items[listbox1.itemindex]);
　　listbox1.DeleteSelected;
　　end;

　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　i: integer;
　　begin
　　listbox2.Clear;
　　listbox1.Items.Text := list.Text;
　　end;

　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　list:= TSTringlist.Create;
　　list.Text := listbox1.Items.Text;
　　end;

　　procedure TForm1.FormDestroy(Sender: TObject);
　　begin
　　freeAndNil(list);
　　end;

Answer 2

ListBox2.Items.text:= ListBox1.Items.text;

ListBox2.Items.clear;