DBLookupComboBox - 如何通过键入类似的select2 jquery

时间：2016-07-27 14:13:01

标签： delphi

如何在输入DBLookupComboBox时进行过滤，并搜索项目任意位置中包含的单词，类似于jquery select2。

enter image description here

1 个答案:

答案 0 :(得分：1)

您无法输入DBLookupComboBox，但可以将其与TEdit和TPanel一起使用。

  • 放置TPanel。
  • 在TDBLookupComboBox上放置TEdit和TPanel，并将Align的{​​{1}}属性设为alClient。
  • 使用此procedure。
  • 将AlignWithMargins的{​​{1}}属性设置为TEdit。
  • 将True编辑为0并将Top, Buttom, Right设置为20。

  • 使用Right作为过滤器。 

    procedure

  • 在Procedure filterr(Dataset: TDataSet; const FieldName, SearchTerm: string); begin Assert(Assigned(Dataset), 'No dataset is assigned'); if SearchTerm = '' then Dataset.Filtered := False else begin Dataset.Filter := FieldName + ' LIKE ' + QuotedStr(SearchTerm + '*'); Dataset.Filtered := True; end; end;

    的OnChange事件中 
    TEdit
相关问题
最新问题