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