CheckListbox Name anklicken [erledigt]

[Hansa]

Hi,

wie mache ich das, in einer CheckListBox ohne das Kästchen genau treffen zu müssen, einen Eintrag auszuwählen ? Also durch anklicken der Beschreibung daneben.

[Matze]

Evtl so:

Delphi-Quellcode:

CheckListBox1.Checked[CheckListBox1.ItemIndex] := not CheckListBox1.Checked[CheckListBox1.ItemIndex];

Nachtrag: Also im OnClick.

[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

[Muetze1]

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

[Hansa]

Thx,

Sharky's Code hatte schon funktioniert. Habe jetzt den optimierten von Mütze eingebaut. Mit Onclick gings allerdings nicht.