Предотвратить OnClick при именении TCheckBox

Оформил: DeeCo

{ 
Wenn man programatisch eine CheckBox auf "checked' setzt, erzeugt das in 
einigen Fallen ein ungewunschtes OnClick Ereignis. 
}

 { 
When you set a checkbox to Checked the checkbox generates a potentially 
unwanted 'OnClick' event... 
}



 //To prevent it: 
procedure SetCheckBox(chk: TCheckBox; B: Boolean);
 var
   N: TNotifyEvent;
 begin
   with Chk do
   begin
     N := OnClick;
     OnClick := nil;
     Checked := B;
     OnClick := N;
   end;
 end;