Habe diesen Code genommen, aber wenn ich nun auf den button klicke, passiert gar nichts.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Listbox1.Items.Count - 1 do
begin
if Listbox1.Selected[i] then
Edit2.Text := Listbox1.Items[Listbox1.ItemIndex];
end;
end;