Checkboxen machen mich wahnsinnig!

[hoika]

Hallo,

ich verstehe zwar nicht ganz, was der Code bezwecken soll
habe bei CheckBox 10 aufgehört zu zählen,
aber viell. hilft ja folgendes

Delphi-Quellcode:

procedure CheckBox_SetCheck(theCheckBox: TCheckBox; bCheck: Boolean);
var
  TempProc: procedure (Sender: TObject) of object;
begin
  if theCheckBox<>NIL then
  begin
    TempProc:= theCheckBox.OnClick;
    theCheckBox.OnClick:= NIL;
    theCheckBox.Checked:= bCheck;
    theCheckBox.OnClick:= TempProc;
  end
end;

Damit wird das OnClick temporär deaktiviert und stört nicht,
wenn man an den Checkboxen manuell rumfummelt.


Heiko