Hola santiago14.
Cita:
Empezado por santiago14
...
La cosa es así, en un TComboBox no puedo traer ambos valores, mostrar uno y guardarme el otro para usarlo cuando quiera. En un TDBComboBox si es posible (keyValue, KeyField, KeyValue)
...
|
No es complicado hacer lo que queres usando un
TComboBox:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
while not IBQuery.Eof do
begin
ComboBox1.AddItem(IBQuery.FieldByName('NOMBRE_CLIENTE').AsString,
TObject(IBQuery.FieldByName('COD_CLIENTE').AsInteger));
IBQuery.Next;
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
with ComboBox1 do
ShowMessage(Format('%s %d',[Items[ItemIndex], Integer(Items.Objects[ItemIndex])])); end;
(Creo haber contestado esto en un hilo anterior pero no pude encontrarlo.
)
Saludos