Moin!
Wobei man sich noch Punkt sparen könnte:
Delphi-Quellcode:
Procedure TForm1.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
lIndex : Integer;
Begin
lIndex := CheckListBox1.ItemAtPos(Point(x, y), True);
If ( lIndex > -1 ) Then
CheckListBox1.Checked[lIndex] := Not CheckListBox1.Checked[lIndex]
End;
MfG
Muetze1