Listbox item select

[Daniel B]

Warst schon fast dran.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;