selber aufrufen von OnChange verhindern?

[hoika]

Hallo,

ich habe mir dafür extra Routinen geschrieben,
am Bsp einer CheckBox sieht das dann so aus.

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
  else
  begin
   {$IFDEF DEBUG}
    MBDebug(sFormName+'.CheckBox_SetCheck'
      +#13#10+'<theCheckBox>=NIL');
   {$ENDIF}
  end;  
end;  { CheckBox_SetCheck }

Heiko