Pedir al usuario Seleccionar un RadioButton

[Lenny]

Buenas y muchas gracias de antemano por cualquier ayuda.

Tengo 4 RadioButton, cada cual con una opcion diferente, necesito que al momento de guardar si no esta seleccionado ninguno salga un mensaje pidiendo seleccione uno de estos. Por ejemplo, con los DBEdit tengo algo asi:

Código Delphi [-]
 
begin
if DBEdit1.Text= '' then begin
  MessageBox(Handle, 
             PChar('"Debe ingresar al menos un valor"'), 
             PChar('Pruebas'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
abort
end else
..........
end;

Ojala algo similar o mejor... nuevamente muchas gracias de antemano...

Nuevamente, muchisimas gracias de antemano...

[[oscarac]]

me parece que en los radiobutton el valor -1 significa que no esta seleccionado

entoces podrias hacer preguntas

Pseudocodigo

Código Delphi [-]
 
if rbutton1.itemindex = -1 Then  Message('Boton 1 no esta seleccionado')

[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