Ver Mensaje Individual
  #4  
Antiguo 18-03-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola jlrdz.

Una forma puede ser:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.OnClick:= nil;
  CheckBox1.Checked:= False;
  CheckBox1.OnClick:= CheckBox1Click;
end;

Otra:
Código Delphi [-]
...
type
 TCheckBox = class(StdCtrls.TCheckBox);
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
  ...
implementation
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.ClicksDisabled:= True;
  CheckBox1.Checked:= False;
  CheckBox1.ClicksDisabled:= False;
end;

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-03-2011 a las 19:20:12.
Responder Con Cita