cxLookupComboBox使用方法

示例

//选择修改时执行
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;

效果

转载于:https://www.cnblogs.com/win32pro/p/5590154.html