2016-07-27 4 views

答えて

0

あなたはDBLookupComboBoxを入力することはできませんが、TEditTPanelでそれを使用することができます。

  • TPanelを配置します。
  • TDBLookupComboBoxおよびTEditTPanelに置き、両方のAlignプロパティをalClientに設定します。
  • これはprocedureを使用してください。
  • TEditAlignWithMarginsプロパティをTrueに設定します。
  • 編集Top, Buttom, Right 0およびRight 20へ
  • 使用フィルタのprocedureを設定します。 TEdit

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

OnChange場合に

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; 
  • あなたは私が必要とする正確に何であるありがとう。 DBLookupComboBoxコンポーネントとEditコンポーネントにはalignmentプロパティがありません。 –

  • 関連する問題