Simular dos radiobuttons con Checkbox

[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

[[Lepe]]

En su momento tambien me desconcertó ese funcionamiento, así que derivé de Tcheckbox y me creé el mio propio:

Código Delphi [-]

unit CheckBoxNoClick;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TCheckBoxNoClick = class(tcheckBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    procedure SetChecked(Value:Boolean);
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TCheckBoxNoClick]);
end;

{ TCheckBoxNoClick }

procedure TCheckBoxNoClick.SetChecked(Value: Boolean);
begin
  try
    clicksdisabled := True;
    inherited;
  finally
    ClicksDisabled:= False;
  end;
end;

end.

Cuando no se quiere que desencadene el evento OnClick por código, se usa SetChecked.
Cuando se necesita el comportamiento normal, se usa como siempre.

Saludos

[ContraVeneno]

Muy buenas respuestas... pero sigue faltando una que no entiendo, y que el único que puede responder es el autor de este hilo:

¿porqué no quieres usar RadioButtons?

[TriLoCBA]

Muchas gracias a todos por vuestras rapidas respuestas...!!!

Me pone orgulloso que un tema tan modesto haya juntado a los grandes del foro !!!

Para despejar dudas, la utilizacion de los checkbox en lugar de radiobutton responde a dos situaciones:

1ra. Forman parte de un form que tiene como fondo una imagen especifica sobre la cual no puedo poner ningun componente como el Tpanel ó el TRadioGroup que no traiga la propiedad Transparent; y en el mismo formulario ya poseeo una serie de RadioButtons para otra función.

y 2da., aunque menos importante, me agradan visualmente mas los checkboxs sobre los radiobuttons.

Probare los ejemplos enviados, y de nuevo muchas gracias.

Un abrazo.

[vtdeleon]

Empezado por Lepe

Cuando no se quiere que desencadene el evento OnClick por código, se usa SetChecked.
Cuando se necesita el comportamiento normal, se usa como siempre.

No me ha funcionado . Algo se me escapa

Saludos