checklistbox.deleteselected funzt nicht

[Christoph Frank]

Hallo zusammen,

also mit der CheckListBox habe ich so meine Probleme.
Wie im Beitrag geschrieben - bei der CheckListBox gebe es auch ein MultiSelect - kann ich nicht bestätigen.
Wenn damit gemeint ist, daß ich sowohl ein Checked wie auch Selected ausführen kann, dann fängt da mein Problem schon an.
Ich möchte z.B. eine farbliche Hinterlegung in meiner CheckListBox haben aber nur dann, wenn auch ein Haken gesetzt ist und nur bei den angehakten. Auch möchte ich eine Möglichkeit haben, daß nur ein Haken gesetzt werden kann, also vergleichbar mit MultiSelect := false in der ListBox.

Hat denn dafür jemand eine Lösung?
Das Beispiel in diesem Beitrag habe ich etwas umgeändert und dachte mir damit zu helfen:

Altes Beispiel: Mein Beispiel:
CheckListBox1.Items.BeginUpdate; CheckListBox1.Items.BeginUpdate;
Try
For i := Pred(checklistbox1.Count) DownTo 0 Do For i := Pred(checklistbox1.Items.Count)
DownTo 0 Do
If checklistbox1.Checked[i] Then If checklistbox1.Checked[i] Then
Checklistbox1.items.Delete(i); Checklistbox1.Selected[i] := false;
Finally Finally
CheckListBox1.Items.EndUpdate; CheckListBox1.Items.EndUpdate;
End; End;

Bei meinem Beispiel knalle ich aber raus 'Index überschreitet das Maximum von (n)'

Gruß Christoph