Ver Mensaje Individual
  #7  
Antiguo 24-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Bueno, es que yo no sé si es una cuestión estética. Es sólo que en el código que él intentó, explícitamente pone en true el checkbox que llama. Por eso supuse que no quería dejar que se desmarcara.

Ahora, tratando de encontrar un código compacto como el de seoane, lo más que me acerco es a esto:

Código Delphi [-]
{$writeableconst on}
procedure TForm1.CheckBoxClick(Sender: TObject);
const
  Checando: Boolean = false;

begin
  if Checando then exit;

  Checando := true;
  if Sender = CheckBox1
    then CheckBox2.Checked := false
    else CheckBox1.Checked := false;

  TCheckBox(Sender).Checked := true;
  Checando := false;
end;
{$writeableconst off}

usando un sólo evento para ambos.

// Saludos
Responder Con Cita