DBLookupComboBox - 如何通過鍵入類似的select2來過濾jquery

Question

如何過濾鍵入DBLookupComboBox，並搜索包含在該項目的任何位置的單詞，類似於jquery select2。

Answer 1

不能鍵入在DBLookupComboBox，但你可以用TEdit和TPanel使用它。

• 放置一個TPanel。
• 在TPanel上放置TDBLookupComboBox和TEdit，並將它們的Align的性質設置爲alClient。
• 使用此procedure。
• 將TEdit的AlignWithMargins屬性設置爲True。
• 編輯Top, Buttom, Right爲0，並設置Right〜20

• 使用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

  filterr(mytable;'fieldname';edit1.Text);