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;
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;