Hi,
geht ganz einfach. Du reagierst auf das Ereignis OnClick und ermittelst mit ListBox.ItemIndex das ausgewählte Item und merkst es dir in einen privaten Feld des Forms:
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
CurrentItem: Integer;
end;
...
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex <> -1 then
begin
CurrentItem := ListBox1.ItemIndex;
Edit1.Text := ListBox1.Items[CurrentItem];
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (CurrentItem <> -1) and (ListBox1.Items.Count > CurrentItem) then
begin
ListBox1.Items[CurrentItem] := Edit1.Text;
CurrentItem := -1;
end;
end;