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]