Desmarcar CheckBox sin ejecutar evento on Click

[jlrdz]

Justo lo que necesitaba!, gracias ecfisa, las dos maneras funciona.

Saludos y gracias nuevamente.

[rastafarey]

Código Delphi [-]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if checkbox1.Checked then
 begin
  showmessage('Marcado!');
 end{si no lo usas para que lo pones
 else
 begin
  showmessage('No marcado!');
 end;}
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked := Not CheckBox1.Checked;
end;

[olbeup]

También puedes usar una variable intermedia que es lo que yo utilizo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  OnEventTmp: TNotifyEvent;
begin
  OnEventTmp := CheckBox1.OnClick;
    CheckBox1.OnClick:= nil;
    CheckBox1.Checked:= False;
  CheckBox1.OnClick:= OnEventTmp;
end;

Un saludo.

P.D.: También, el componente que ha modificado y añadido una variable, es buena idea e incluso es más atractiva.