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;