Hallo,

ich habe eine Listbox, die ich mit

markieren

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?

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

markieren

Delphi-Quellcode:

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

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:

zusammenfalten · markieren

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

@marabu
Danke, so klappt´s