Moin!
Und für z.B: Delphi 4/5 Nutzer die diese Methode noch nicht haben nochmal zur Vollständigkeit:
MultiSelect:
Delphi-Quellcode:
For i := ListBox1.Items.Count-1 Do 0 Do
If ( ListBox1.Selected[i] ) Then
ListBox1.Items.Delete(i);
kein MultiSelect:
Delphi-Quellcode:
If ( ListBox1.ItemIndex > -1 ) Then
ListBox1.Items.Delete(ListBox1.ItemIndex);
MfG
Muetze1