1,循环塞入 value 和 key
while not ADOQuery1.Eof do
begin
ComboBox1.Items.AddObject(ADOQuery1.FieldByName('ColumnNameName).AsString,
TObject(NewStr(ADOQuery1.FieldByName('f_'ColumnNameKey).AsString)));
ADOQuery1.Next;
end;
2,获取combobox的object key
PString(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;