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

Question

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

Answer 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