TListBox ItemIndex aktueller Ansicht

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Deerfield.

In einfachen Fällen hilft schon dieses:

Delphi-Quellcode:

procedure AddItem(lb: TListBox; const item: String);
var
  iSel, iTop: Integer;
begin
  with lb do
  begin
    Items.BeginUpdate;
    iSel := ItemIndex;
    iTop := TopIndex;
    Items.Add('abc');
    if iSel >= 0 then
    begin
      TopIndex := iTop;
      ItemIndex := iSel;
    end;
    Items.EndUpdate;
  end;
end;

procedure TDemoForm.AddButtonClick(Sender: TObject);
begin
  AddItem(ListBox, ItemEdit.Text);
end;

Etwas komplizierter wird es bei MultiSelect = True, AddStrings() oder Insert().

Freundliche Grüße vom marabu