Wenn du einen bestimmten Item löschen willst, dann
Delphi-Quellcode:
var
i: Integer;
begin
i := 2; //Beispiel für das dritte Item
if I > -1 then
if I < ListBox1.Items.Count then
ListBox1.Items.Delete(I);
end;
Wenn du einen ausgewählten Item löschen willst
Delphi-Quellcode:
if ListBox1.ItemIndex > -1 then
ListBox1.Items.Delete(ListBox1.ItemIndex);
Solltest du mit Multiselect mehrere Items löschen willst, denn
Delphi-Quellcode:
var
i: Integer;
begin
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[I] then
ListBox1.Items.Delete(I);
end;
Achte aber dabei IMMER, dass du runterzählst, sonst kommt der maximaler Index Fehler. Grund, wenn der erst und letzte Item gewählt sind und du den ersten Item löscht, ändert sich die Position des letzten Items. Wenn du runterzählst ist es egal.