cxLookupComboBox使用方法
本文由 猛 于 2021-5-9 10:31 发布在 Delphi
//选择修改时执行 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