Delphi CheckListbox Name anklicken [erledigt]

Thema durchsuchen

Ansicht

Themen-Optionen

CheckListbox Name anklicken [erledigt]

Ein Thema von Hansa · begonnen am 8. Mär 2005 · letzter Beitrag vom 9. Mär 2005

Antwort

Muetze1

(Gast)

n/a Beiträge

Re: CheckListbox Name anklicken

8. Mär 2005, 23:39

Moin!

Wobei man sich noch Punkt sparen könnte:

markieren

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;