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
[-]
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...