Hacer que un DBLookupComboBox funcione como un ComboBox, o viceversa

[wull]

Ufff vaya eficacia y rapidez en las respuestas. Me he pasado el día leyendo acerca de los DBLookupComboBox, y ya he comprendido lo que mencionan en sus comentarios. Ya he analizado las propuestas de ecfisa y estaba a punto de probar una de ellas, pero me tope con el componente BDComboBox... ahora mi duda es, puedo utilizar este componente para lograr lo que quiero? más que nada me gustaria saber como funciona el DBComboBox ya leí un poco acerca de el, pero la verdad no entendí mucho... alguien me puede explicar si no es mucha molestia.

[ecfisa]

Hola wull.

Traducción de la ayuda de Delphi:

Utilice TDBComboBox para permitir a los usuarios cambiar el valor de un campo en el registro actual de un conjunto de datos ya sea mediante la selección de un elemento de una lista o escribiendo en el cuadro de edición de parte del control. El elemento seleccionado o el texto introducido se convierte en el nuevo valor del campo si la propiedad ReadOnly del cuadro combinado de base de datos es falsa. El cuadro combinado se puede personalizar para activar o desactivar escribiendo en el área de edición del control, para visualizar la lista como una lista desplegable o como una lista permanentemente visible, para ordenar los elementos de la lista, y así sucesivamente.

Es decir que usado solamente para elegir una opción, no hay grandes ventajas frente al TComboBox, ya que de todos modos tendrías que realizar la carga de los registros en su propiedad Items al inicio y además no dispondrás del evento OnChange al cambiar de ítem.

Por otro lado, reviendo el código que te sugerí, tal vez no sea necesario que almacenes el ID. Si sólo es a fin de posicionarte basta con que hagas:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  with Query1 do
  begin
    Open;
    while not Eof do
    begin
      ComboBox1.Iems.Add(FieldByName('CAMPO_X').AsString); // campo que se muestra
      Next;
    end;
    First;
  end;
  ComboBox1.Text := 'Elija su opción';
end; 

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex <> -1 then
    Query1.Locate('CAMPO_X', ComboBox1.Items[ComboBox1.ItemIndex],[]);
end;

Saludos.

[wull]

ecfisa muchas gracias por todo el tiempo que te tomas para contestar; ya estoy probando una solución en base a tu respuesta debido a lo cual me surgió otra duda, pero antes de preguntar voy a probar si me funciona primero... espero que sigas aquí por cualquier problema... de nuevo gracias.

[wull]

Hola ecfisa, ya estoy de nuevo por aca molestando de nuevo. Como puedes leer en el titulo del mensaje lo que necesito es saber que opción ha elegido un usuario para que a travez de eso pueda realizar otra acción. Espero poder explicarme con este ejemplo:
Si tengo dos dblookupcombo uno llamado 'Combo1' para almacenar nombres de Continentes y otro llamado 'combo2' para guardar los países; entonces si elijo por ejemplo continente americano en el combo1 el combo2 deberia mostrar México, Argentina, Chile, etc., pero si elijo África por lógica los países deben cambiar. Lo anterior lo lograba en los TCombobox identificando el 'itemindex' del combo y aplicaba 'Case' para los indices algo asi:

Código Delphi [-]
if (micombo.ItemIndex > -1) then
  begin
   indexcombo:=combomunicipios.ItemIndex;
    case indexcombo of
       0:  combo2.Items.Add('México');
            combo2.Items.Add('Argentina'); // suponiendo que el case 0 es América
       1: combo2.Items.Add('Camerún'); // si el case 1 es África

Los componentes DBLookupComboBox no cuentan con la propiedad itemindex, por lo que he leído necesito tener varias tablas para enlazarlas a los DataSource y después al combo ¿verdad? se que puedo rellenarlos de forma manual, pero no se como hacerlo, ni tampoco como lograr que cambien para cada 'Case' entonces ¿como puedo lograr algo parecido a lo que hacia con los TComboBox?... agradeceré cualquier ayuda.

[ecfisa]

Hola wull.

Si no entiendo mál lo que buscas podrías manejar el filtrado desde la sentencia SQL, un ejemplo basado en la tabla country de dbdemos:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Query1.Open;
  ComboBox1.Clear;
  ComboBox2.Clear;
  while not Query1.Eof do
  begin
    ComboBox1.Items.Add(Query1.FieldByName('CONTINENT').AsString);
    ComboBox2.Items.Add(Query1.FieldByName('NAME').AsString);
    Query1.Next;
  end;
end;

procedure TForm1.ComboBoxChange(Sender: TObject);
begin
  with TComboBox(Sender) do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('SELECT * FROM COUNTRY ');
    if Name = 'ComboBox1' then
      Query1.SQL.Add('WHERE CONTINENT = :PVALUE')
    else
      Query1.SQL.Add('WHERE NAME = :PVALUE');
    Query1.ParamByName('PVALUE').AsString := Items[ItemIndex];
    Query1.Open;
  end;
end;

Asigna el método ComboBoxChange al evento OnChange de ambos TComboBox.

Saludos.

[wull]

Bien después de probar algunos de sus consejos y de leer mucho acerca del tema, pude dar con la solución. La verdad era bastante sencillo solo yo solo me complique la existencia. Al final use DBComboBox me resultaron bastante útiles para lograr lo que necesitaba, no sé porque no me di cuenta antes pero con esos controles si se pueden usar las propiedades ItemIndex e Item.Add que era lo que requería... muchas gracias a todos por tomarse la molestia de contestar y en especial a ecfisa por todas las atenciones brindadas.