Ver Mensaje Individual
  #2  
Antiguo 01-11-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola santiago14.

Cita:
Empezado por santiago14 Ver Mensaje
...
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], // NOMBRE_CLIENTE
      Integer(Items.Objects[ItemIndex])]));       // COD_CLIENTE
end;

(Creo haber contestado esto en un hilo anterior pero no pude encontrarlo. )

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita