Ver Mensaje Individual
  #2  
Antiguo 14-05-2021
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
Hola elrayo76

En el evento OnClick del componente puedes emular el ReadOnly jugando con el Tag del componente.
Código Delphi [-]
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  if Boolean(CheckBox1.Tag) then
  begin
    CheckBox1.Checked := False;
    Exit;
  end;
  ...
  ...
  ...
end;
Es una opción.
También te puedes fabricar tu propio componente TCheckBox, etc.., y le añades la propiedad ReadOnly, pero eso es otra historia.

Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita