consulta de parametros de 2combobox

[kryna]

Hola...


Mi problema es el siguiente..

tengo 1radiogroup llamado rgservicios cuando este es 0.. me activa un combobox llamado comboemergencia.... comboemergencia tiene 6 opciones para la seleccion o1, o2, o3, o4, o5, o6....

Si rgservicios es 1 activa un combobox llamado combocomple que a su vez tiene algunas opciones para la seleccion.

Si rgservicios es 2 activa un combobox llamado combocombo que a su vez tiene algunas opciones para la seleccion.

si yo utilizo el siguiente codigo..

if (rgservicios.ItemIndex = 0) and (comboemergencia.ItemIndex in [0]) then
ds.DataSet := qryemergencia;
tabla1.Visible := true;

if (rgservicios.ItemIndex = 0) and (comboemergencia.ItemIndex in [1]) then
{muestra tablas}

if (rgservicios.ItemIndex = 0) and (comboemergencia.ItemIndex in [2]) then
{muestra tablas}

.
.
.
if (rgservicios.ItemIndex = 1) and (combocomple.ItemIndex in [6]) then
{muestra tablas}


if (rgservicios.ItemIndex = 1) and (combocomple.ItemIndex in [0]) then
{muestra tablas}

if (rgservicios.ItemIndex = 1) and (combocomple.ItemIndex in [1]) then
{muestra tablas}

if (rgservicios.ItemIndex = 1) and (combocomple.ItemIndex in [2]) then
{muestra tablas}

.
.
.
if (rgservicios.ItemIndex = 1) and (combocomple.ItemIndex in [9]) then
{muestra tablas}



if (rgservicios.ItemIndex = 2) and (combocombo.ItemIndex in [0]) then
{muestra tablas}

if (rgservicios.ItemIndex = 2) and (combocombo.ItemIndex in [1]) then
{muestra tablas}

if (rgservicios.ItemIndex = 2) and (combocombo.ItemIndex in [2]) then
{muestra tablas}

.
.
.
if (rgservicios.ItemIndex = 2) and (combocombo.ItemIndex in [15]) then
{muestra tablas}

Yo quisiera saber si no hay otra manera de hacer esto, para no utilizar tantos if anidados.

gracias

[roman]

Empezado por kryna

tengo 1radiogroup llamado rgservicios cuando este es 0.. me activa un combobox llamado comboemergencia....

[...]

Si rgservicios es 1 activa un combobox llamado combocomple que a su vez tiene algunas opciones para la seleccion.

Si rgservicios es 2 activa un combobox llamado combocombo que a su vez tiene algunas opciones para la seleccion

Según entiendo de lo que describes, cada uno de los tres combos estará activo sólo si la correspondiente opción del RadioGroup está seleccionada.

Entonces no entiendo por qué quieres juntar todas las comprobaciones en un sólo lugar.

Tal como veo las cosas tienes que manejar un case en el evento OnClick del RadioGroup:

Código Delphi [-]
case rgservicios.ItemIndex of
  0: { activas comboemergencia }
  1: { activas combocomple }
  2: { activas combocombo }
end;

y manejas las opciones de cada combo en su correspondiente evento OnChange:

Código Delphi [-]
procedure comboemergenciaChange(Sender: TObject);
begin
  case comboemergencia.ItemIndex of
    0: { muestras tabla para opción 0 }
    1: { muestras tabla para opción 1 }
    ...
    6: { muestras tabla para opción 6 }
  end;
end;

Código Delphi [-]
procedure combocompleChange(Sender: TObject);
begin
  case combocomple.ItemIndex of
    0: { muestras tabla para opción 0 }
    1: { muestras tabla para opción 1 }
    ...
    9: { muestras tabla para opción 9 }
  end;
end;

Código Delphi [-]
procedure combocomboChange(Sender: TObject);
begin
  case combocombo.ItemIndex of
     0: { muestras tabla para opción  0 }
     1: { muestras tabla para opción  1 }
    ...
    15: { muestras tabla para opción 15 }
  end;
end;

en comboEmergenciaChange abarcas las opciones de tu primer bloque pues si se entra a este evento es porque rgservicios.ItemIndex = 0, en combocomple abarcas las opciones de tu segundo bloque pues si se entra a este evento es porque rgservicios.ItemIndex = 1 y en combocomboChange abarcas las opciones de tu tercer bloque pues si se entra a este evento es porque rgservicios.ItemIndex = 2.

// Saludos