Hola.
Un DBLookupComboBox tampoco sería mala elección. Pero, si como mencionas en el mensaje #5, ya recorres la consulta para almacenar los datos obtenidos en el ComboBox, otra alternativa podría ser:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
tuQuery.Close;
tuQuery.SQL.Text:= 'SELECT CAMPO_A_MOSTRAR, ID FROM TU_TABLA';
tuQuery.Open;
while not tuQuery.Eof do
begin
ComboBox1.Items.AddObject(tuQuery.FieldByName('CAMPO_A_MOSTRAR').AsString,
TObject(tuQuery.FieldByName('ID').AsInteger));
tuQuery.Next;
end;
tuQuery.First;
end;
Obtener el ID, ejemplo:
Código Delphi
[-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
Id: Integer;
begin
Id := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); Caption := IntToStr(Id); ...
end;
Saludos.