Simular dos radiobuttons con Checkbox

[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

[[Lepe]]

En qué delphi lo has probado vtdeleon?

En Delphi 6 Enterprise lo he usado con éxito.

Como ves los de Borland ya pensaron en ello y precisamente por eso tienen una variabla protected/private (no recuerdo) llamada ClickDisabled.

Ahora mismo en Delphi 6 no puedo mirarlo. En BDS2006 la cosa ha cambiado:

Código Delphi [-]
procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
begin
  if FState <> Value then
  begin
    FState := Value;
    if HandleAllocated then
      SendMessage(Handle, BM_SETCHECK, Integer(FState), 0);
    if not ClicksDisabled then Click; <-------------------------
  end;
end;

Ahora es el procedimiento SetState.

Saludos

[vtdeleon]

Empezado por Lepe

Ahora mismo en Delphi 6 no puedo mirarlo. En BDS2006 la cosa ha cambiado:

Por ahí andaban los tiros.

Ahora no lo puedo probar, no tengo el delphi a mano.
Saludos

[TriLoCBA]

Perfecto... El primer codigo que planteo Roman es lo que necesitaba !!!

Muchas gracias a todos por la ayuda...

Un abrazo.

TriloCba