ayuda combobox anidado

[Rofocale]

hola a todos.. espero que esten bien... tengo una nueva pregunta jeje
tengo dos combobox:

Código Delphi [-]
combobox1         combobox2
bebidas              jugos
licores                cervezas
                         gaseosa
                         vino

lo que quiero hacer es que si en el combobox esta puesto bebidas solo me muestre en el 2do combobox cervezas, jugos y no toda la lista y si es licores: cervezas, vino

la info la saco de una BD hecha en firebird

gracias espero me puedan ayudar otra vez
cuidense

[ecfisa]

Hola Rofocale.

Una forma podría ser:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex = 0 then
  begin
    if ComboBox2.Items.IndexOf('JUGOS')= -1 then
      ComboBox2.Items.Add('JUGOS');
    if ComboBox2.Items.IndexOf('GASEOSAS')= -1 then
      ComboBox2.Items.Add('GASEOSAS');
    ComboBox2.Items.Delete(ComboBox2.Items.IndexOf('CERVEZA'));
    ComboBox2.Items.Delete(ComboBox2.Items.IndexOf('VINO'));
  end
  else
  begin
    if ComboBox2.Items.IndexOf('CERVEZA')= -1 then
      ComboBox2.Items.Add('CERVEZA');
    if ComboBox2.Items.IndexOf('VINO')= -1 then
      ComboBox2.Items.Add('VINO');
    ComboBox2.Items.Delete(ComboBox2.Items.IndexOf('JUGOS'));
    ComboBox2.Items.Delete(ComboBox2.Items.IndexOf('GASEOSAS'));
  end;
end;

Saludos.

[[Caral]]

Hola
Necesitas un campo tipo asi con solo definir el tipo saldra lo que necesitas.
Saludos

[Rofocale]

si las categorias en los combobox crecen osea les inserto mas, el codigo seria enorme.. otra forma de hacerlo si es que en cada combobox hubiera unas 60 categorias ?

gracias

[ecfisa]

Empezado por Rofocale

si las categorias en los combobox crecen osea les inserto mas, el codigo seria enorme.. otra forma de hacerlo si es que en cada combobox hubiera unas 60 categorias ?

gracias

Bueno, yo sólo me limité a responder a tu consulta, no sabía si era para un ejercicio...
¡ No quiero ni imaginar 60 items en cada ComboBox con ese código... cinco días tecleando!!!

Me parece que si la lista puede crecer de forma indefinida, es más fácil hacer las inserciones, relaciones y mantenimiento
usando dos TDataSet.

Saludos.

[Rofocale]

lo se.. solo que estoy practicando y queria una forma de anidar 2 combobox con codigo pero de una mejor manera de la que se muestra arriba porque el codigo se agrandaria demasiado si en un combobox se listara items

[[ElDioni]]

Pues como te dice ecfisa,tendrás que hacerte dos tablas, maestro y otra detalle, en la primera pondrás las familias de bebidas y en la segunda rellenaras la bebida con la familia a la que pertenece, entonces enlazas estas tablas con un adoquery1 a un dblookcombobox, por ejemplo, y cuando selecciones la familia en el primero que te filtre en el segundo las bebidas que pertenecen a esa familia.

Un saludo.