Ver Mensaje Individual
  #5  
Antiguo 19-09-2006
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 26
maeyanes Va por buen camino
En determinado momento podrías usar un TComboBox normal y en el evento BeforePost de la tabla en cuestión agregar el valor de ItemIndex del TComboBox en el campo deseado. Para esto, la propiedad Style debes ponerla en csDropDownList:

Código Delphi [-]

// La propiedad Items del ComboBox tendría:
// Si <--- ItemIndex = 0
// No <--- ItemIndex = 1

procedure TForm1.Tabla1BeforePost(DataSet: TDataSet);
begin
  DataSet.FieldByName('Campo').AsInteger := ComboBox1.ItemIndex
end;

Otra opción sería desde el evento OnChange del TComboBox::

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Tabla1.FieldByName('Campo').AsInteger := ComboBox1.ItemIndex
end;

Saludos...
Responder Con Cita