DevExpress控件TExtLookupComboBox实现多列模糊匹配输入的方法

本方案不需要修改控件源码，是完美解决支持多列模糊匹配快速输入的最佳方案！！

本实例应用于 CXGRID

1、把列的Properties属性设置为ExtLookupComboBox。

Properties.IncrementalFiltering := False;
Properties.CaseSensitiveSearch := False;
Properties.DropDownListStyle := lsEditList;

当然，接着要完成设置Properties.View，Properties.KeyFieldNames和Properties.ListFieldItem。

// 本案例的列是：cxGridDBTableView1VENDOR_ID: TcxGridDBColumn;绑定服务商ID自动。

2、Properties.OnChange事件代码:

procedure TFormcxLookupCombox.cxGridDBTableView1VENDOR_IDPropertiesChange(Sender: TObject);

var
iCol: Integer;
vInputText: String;
begin
// 注：cxGridDBTableView1VENDOR_ID: TcxGridDBColumn;
(Sender as TcxExtLookupComboBox).Properties.IncrementalSearch := False; //必需
(Sender as TcxExtLookupComboBox).Properties.CaseInsensitive := True; //必需
//(Sender as TcxExtLookupComboBox).Properties.IncrementalFiltering := False;//设计期在Properties中设置好.
//(Sender as TcxExtLookupComboBox).Properties.CaseSensitiveSearch := False; //设计期在Properties中设置好.
//(Sender as TcxExtLookupComboBox).Properties.DropDownListStyle := lsEditList;//设计期在Properties中设置好
vInputText := (Sender as TcxExtLookupComboBox).EditText;
// with (cxGrid1DBTableView1VENDOR_ID.Properties as TcxExtLookupComboBoxProperties) do
with (Sender as TcxExtLookupComboBox).Properties do // 改为通用写法.
begin
View.DataController.Filter.Options := [fcoCaseInsensitive];
View.DataController.Filter.Clear;
View.DataController.Filter.Root.Clear;
// view中所有可视列都用于模糊检索.
for iCol := 0 to View.VisibleItemCount - 1 do
begin
if iCol > 0 then View.DataController.Filter.Root.BoolOperatorKind := fboOR;
View.DataController.Filter.Root.AddItem(View.VisibleItems[iCol], foLike,
'%' + vInputText + '%', '%' + vInputText + '%');
end;
View.DataController.Filter.Active := True;
end;
end;

3、Properties.OnCloseUp事件代码:
procedure TFormcxLookupCombox.cxGridDBTableView1VENDOR_IDPropertiesCloseUp(Sender: TObject);
begin
(Sender as TcxExtLookupComboBox).Properties.View.DataController.Filter.Clear;