示例

//选择修改时执行 procedure TForm1.cxLookupComboBox1PropertiesChange(Sender: TObject);begin  edit1.Text:=VarToStr(cxLookupComboBox1.EditValue); //返回KeyFieldNames设置的字段值  Edit2.Text:=cxLookupComboBox1.EditText;            //返回 ListFieldIndex设置的字段值  Edit3.Text:=vartostr(cxlookupcombobox1.EditValue)+'-'+cxLookupComboBox1.EditText;    //格式化输出end; //窗体创建时初始化参数并赋值procedure TForm1.FormCreate(Sender: TObject);begin  cxLookupComboBox1.Properties.DropDownAutoSize:=true;             //设置下拉列表为自适应宽度  cxLookupComboBox1.Properties.ListSource:=DataSource1;            //设置数据源  cxLookupComboBox1.Properties.ListFieldNames:='CustNo;Company';   //设置下拉列表需要显示的列  cxLookupComboBox1.Properties.KeyFieldNames:='CustNo';            //设置返回的字段名，用EditValue取值  cxLookupComboBox1.Properties.ListFieldIndex:=1;                  //设置返回输入框中的值，用EditText取值end;

效果