CheckListbox Name anklicken [erledigt]

[Sharky]

Hai Hansa,

besser ist es das im .OnMouseDown zu machen. Sonnst passiert es nämlich auch wenn man mit den Cursortasten durchblättert

Delphi-Quellcode:

procedure TForm1.CheckListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  punkt : TPoint;
  index : Integer;
begin
  punkt.X := x;
  punkt.Y := y;
  index := CheckListBox1.ItemAtPos(punkt,True);
  if (index <> -1) then
  begin
    CheckListBox1.Checked [index] :=  not (CheckListBox1.Checked [index])
  end;
end;

[Edit]: Fehler prüfung eingebaut