Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Duda con RadioGroup.. (https://www.clubdelphi.com/foros/showthread.php?t=14882)

elbilla 04-10-2004 14:43:30

Duda con RadioGroup..
 
Tengo varios radiogroups con 8 radiobuttons cada uno, pero no consigo que un boton controle si se queda alguno sin pulsar al pasar a otro panel.

Lo pongo así:
Código:

if (RadioGroup1.Items[RadioGroup1.ItemIndex]='1') OR
                if (RadioGroup1.Items[RadioGroup1.ItemIndex]='2') OR

Así hasta los 8 buttons q hay. Si está pulsado algun button se mete por ese if, sino q saque un mensaje.
Me da un error out of Index...................Como lo podría hacer ??

Un saludo.

marcoszorrilla 04-10-2004 15:06:43

El problema es que si tienes 4 items el primero es el 0 y no el uno, por lo tanto el último sería el 3 y no el 4.

De todos modos si pones su propiedad ItemIndex a 0 lo tendrás resuelto sin poner código.

Un Saludo.

elbilla 04-10-2004 15:29:57

El problema no es ese, ya q el código hace referencia al valor del button (q en el string list editor va del 1 al 8) y no al elemento, q como dices empieza en el 0. Lo de la propiedad Itemindex a 0 ya lo había visto, pero así lo que hace es q marca el elmento 0, y lo q yo quiero es q no marque ninguno por defecto.
No sé si me he explicado bien...
Un saludo..

marcoszorrilla 04-10-2004 15:36:26

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 if RadioGroup1.itemIndex < 0 then
  ShowMessage('No Marcó ninguna opción.');
 end;

En ese caso la cosa es más simple si el valor es menor que 0 no marcó ninguna opción.

Un Saludo.

elbilla 04-10-2004 15:50:46

Solucionado....

Gracias..


La franja horaria es GMT +2. Ahora son las 15:01:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi