deshabilitar y habilitar evento onClick de un tcheckbox

[dec]

Hola,

Se me ocurre algo así:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   copiaEvento: TNotifyEvent;
 begin
   // Guardamos el evento OnClick
   copiaEvento := CheckBox1.OnClick;
   // Quitamos el evento temporalmente
   CheckBox1.OnClick := nil;
 
   // Esto ya no disparará el evento OnClick
   CheckBox1.Checked := not CheckBox1.Checked;
 
   // Dejamos las cosas como estaban
   CheckBox1.OnClick := copiaEvento;
 end;