Listbox Problem

[Andreas L.]

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;