Listbox - Eintrag markiert lassen

[Rolf Rostig]

Hallo,

ich habe eine Listbox, die ich mit

Code:

ListBox1.Items.AddObject(myString, TObject(FieldByName('IDX').asInteger));

aus einer Datenbank fülle.

Jetzt wird ein Eintag markiert, danach wird die Listbox aus der DB aktualisiert(es kommen Einträge hinzu).
Wie kriege ich es hin, das immer der gleiche Eintrag markiert bleibt?

[Bernhard Geyer]

Falle der selektierte Eintrag immer die gleiche Position hat und neue Einträge nur am Ende hinzukommen

Delphi-Quellcode:

OldIndex := ListBox1.ItemIndex;
// ListBox neue Füllen/Updaten
ListBox1.ItemIndex := OldIndex

[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

[Rolf Rostig]

@marabu
Danke, so klappt´s :)