Problem mit ListBox

[marabu]

Moin Jürgen,

direkt in der ListBox ändern kannst du zwar nicht, aber manchmal will man das auch gar nicht.

Delphi-Quellcode:

procedure TDemoForm.ListBoxDblClick(Sender: TObject);
var
  s: string;
begin
  with Sender as TListBox do
    if ItemIndex > -1 then
    begin
      s := Items[ItemIndex];
      if InputQuery('Bearbeiten', 'Text', s) then
        Items[ItemIndex] := s;
    end;
end;

Freundliche Grüße