Cita:
Empezado por wull
Pero ahora quiero lograr que si ninguno de los item de los RadioGroup ha sido marcado, entonces mandar un mensaje al usuario para pedirle que marque por lo menos una opción no importa de que RadioGroup sea.
|
Hola wull.
La lógica planteada arriba es:
Código Delphi
[-]
...
if (RadioGroup1.ItemIndex <> -1) or (RadioGroup2.ItemIndex <> -1) then begin
end
else
...
Y funcionaría correctamente... de no ser por un detalle: Si hay selección solamente en un RadioGroup, vas a obtener una excepción que se producirá en la línea:
Código Delphi
[-]Parameters.ParamByName('PANIO').Value := RadioGroup1.Items[RadioGroup1.ItemIndex];
Cuando el usuario haya seleccionado un item de RadioGroup2 o en la línea:
Código Delphi
[-]Parameters.ParamByName('PMES').Value := RadioGroup2.Items[RadioGroup2.ItemIndex];
Cuando lo haya echo en el RadioGroup1.
¿ Por que digo esto ?, por que en algun punto estarías haciendo lo mismo que:
Código Delphi
[-]Parameters.ParamByName('PXXX').Value := RadioGroupN.Items[-1];
Saludos.