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
 

最新评论
网站管理  |  赵猛的个人主页  |  手机版  |  RSS  |  留言建议  |  关于本站  |  联系方式

All Rights Reserved. Powered by emlog Themes by 大智若愚
网站备案号:苏ICP备15011688号-1