Simular dos radiobuttons con Checkbox

[[seoane]]

Empezado por roman

¿Y si no quiere? Es decir, tal como pones, no se imita exactamente el comportamiento de dos radiobuttons ya que justamente puedes desmarcar ambos. Quizá sólo sea una razón estética.

// Saludos

Parece que estamos exigentes, pero si es una razón estética ya no digo mas. Mi confusión se debió a que no entendía porque alguien querría agregar código solo para que un control se comportara como otro, pero si los radiobutton os parecen feos adelante.

[roman]

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

[vtdeleon]

Si hablamos de hacerlo chiquito o compacto

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if TCheckBox(Sender).Name = CheckBox1.Name then
    CheckBox2.Checked:= not TCheckBox(sender).Checked
  else
    CheckBox1.Checked:= not TCheckBox(sender).Checked;
end;

Saludos

[roman]

Pero así tiene un efecto extraño: cuando haces click sobre el que está marcado, la marca pasa al otro.

// Saludos

[vtdeleon]

Saludos

Empezado por roman

Pero así tiene un efecto extraño: cuando haces click sobre el que está marcado, la marca pasa al otro.

Creí que queria un comportamiento similar al Radiobutton

Empezado por TriLoCBA

Necesito simular el efecto de seleccion unica que poseen los radiobutton con un par de checkbox

Ya no entiendo

[vtdeleon]

Ooh ya, se me ha chispoteado el asunto, tienes razón roman

[roman]

El punto es que cuando se cambia la propiedad checked por código, se genera un evento OnClick y una recursividad que da al traste con el stack. Por ello es que no he visto forma de hacerlo como no sea controlando de una u otra manera cuando se está dentro del evento.

// Saludos