Nach dem Löschen, nächstes Item in Listbox selektieren

[City Light]

Löscht man ein Item in einer Listbox, so wird mithilfe dieses Codes das nächste Item automatisch selektiert.

Delphi-Quellcode:

{
Beim Entfernen eines selektierten Items einer Listbox,
wird das nähst nah liegende Item selektiert.
}

var
  a: integer;
begin
  with ListBox1 do
  begin
    a := ItemIndex;
    DeleteSelected; //löscht den selektierten ItemIndex
    ItemIndex := a - 1;
    if ItemIndex <> 0 then
      ItemIndex := a;
    if ItemIndex <> -1 then
    begin
      {...}
    end;
  end;
end;

[edit=flomei]Kurze Erklärung ausserhalb des Codes hinzugefügt, Titel geändert. Mfg, flomei[/edit]