Listbox - Eintrag markiert lassen

[marabu]

Hallo Rolf,

wenn die Einträge in deiner ListBox eindeutig sind, dann genügt es wenn du dir den Eintrag vor dem Update merkst und ihn anschließend wieder suchst:

Delphi-Quellcode:

procedure TDemoForm.UpdateButtonClick(Sender: TObject);
var
  sTemp, itemText: string;
begin
  // markiertes item merken
  with ListBox do
    if ItemIndex = -1
      then itemText := ''
      else itemText := Items[ItemIndex];

  // update hier durchführen
  with ListBox do
  begin 
    sTemp := Items.CommaText;
    Items.Clear;
    Items.CommaText := sTemp;
  end;

  // item wieder markieren
  if itemText <> '' then
    with ListBox do
      ItemIndex := Items.IndexOf(ItemText);
end;

Grüße vom marabu