Ver Mensaje Individual
  #4  
Antiguo 29-03-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
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
Responder Con Cita