Ver Mensaje Individual
  #3  
Antiguo 28-07-2005
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Reputación: 21
yusnerqui Va por buen camino
Hola

Bueno, y si tenemos en cuenta que el evento click del check está dentro de tu código podriamos simplemnte:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   // 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 := CheckBox1Click;
 end;

Saludos
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo

Responder Con Cita