Pedir al usuario Seleccionar un RadioButton

[Lenny]

Gracias oscarac, pero no es realmente lo que necesito, como les decia tengo 4 RadioButton y necesito saber que al menos uno esta seleccionado para poder seguir con el formulario, los RadioButton estan todos en

Código Delphi [-]
Checked:= False

al iniciar el formulario en si (y debe ser de esta manera)... muchas gracias de antemano...

[[newtron]]

¿Y si preguntas por el valor de los cuatro radiobuttons?

Código Delphi [-]
If (RadioButton1.Checked=False) and (RadioButton2.Checked=False) and (RadioButton3.Checked=False) and (RadioButton4.Checked=False) then begin
  ShowMessage('No se puede continuar');
end;

[Lenny]

Muchas gracias newtron y oscarac... acabo de probar lo que dice newtron y funciona perfecto!!! muchas gracias nuevamente...

[[oscarac]]

perdoname
pense que lo tenias en un radiogroup....

se me ocurre que podrias preguntar...

Código Delphi [-]
 
if (Rb1.checked = False) and (Rb2.checked = False) and (Rb3.checked = False) and (Rb4.checked = False) Then message('No selecciono ninguno')

[javier7ar]

Empezado por oscarac

Código Delphi [-]
if (Rb1.checked = False)...

eso es tenerle miedo al Boolean, diria un profesor mio...
basta con

Código Delphi [-]
if not(Rb1.checked)...

o para el caso:

Código Delphi [-]
if (Rb1.checked = True)...

bastaria con

Código Delphi [-]
if (Rb1.checked)...

Saludos

[[oscarac]]

gustos y colores decia mi abuela

[[Delphius]]

Empezado por oscarac

gustos y colores decia mi abuela

Que ni gusto ni colores... ¡Es un "error" garrafal clásico! Y muy visto en los iniciados... yo cometía esa redundancia lógica por año y medio. ¡Lo que me costó sacármelo de encima!

Saludos,

[ecfisa]

Y que aplicando las leyes del ingenioso y nunca bién ponderado Augustus se reduce a:

Código Delphi [-]
if not(rb1.Checked or rb2.Checked or rb3.Checked or rb4.Checked) then
    ShowMessage('Ninguno seleccionado');

Un saludo.

[[Delphius]]

Empezado por ecfisa

Y que aplicando las leyes del ingenioso y nunca bién ponderado Augustus se reduce a:

Código Delphi [-]
if not(rb1.Checked or rb2.Checked or rb3.Checked or rb4.Checked) then
    ShowMessage('Ninguno seleccionado');

Un saludo.

Son las 2 am y mi cabeza está prácticamente apagada... ¿Quién es Augustus? O es que no logré captar una broma de un tipo cualquiera inventado.

Saludos,