advdblookupcomboboxreg.pas

来自「tms25_vcl TMS公司出品的与INTRAWEBSH相关控件」· PAS 代码 · 共 38 行

unit AdvDBLookupComboBoxReg;

interface

{$I TMSDEFS.INC}

uses
  Classes, AdvDBLookupComboBox, AdvDBLookupComboBoxDE
  {$IFDEF DELPHI6_LVL}
  , DesignIntf, DesignEditors
  {$ELSE}
  , DsgnIntf
  {$ENDIF}
  ;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('TMS Edits', [TAdvDBLookupComboBox]);
  RegisterPropertyEditor(TypeInfo(string),TDBColumnItem,'ListField',TAdvDBComboFieldNameProperty);
  RegisterPropertyEditor(TypeInfo(string),TAdvDBLookupComboBox,'KeyField',TAdvDBComboFieldNameProperty);  

  RegisterPropertyEditor(TypeInfo(string),TAdvDBLookupComboBox,'FilterField',TAdvDBComboFieldNameProperty);

  RegisterPropertyEditor(TypeInfo(string),TAdvDBLookupComboBox,'LabelField',TAdvDBComboFieldNameProperty);

  RegisterPropertyEditor(TypeInfo(string),TAdvDBLookupComboBox,'SortColumn',TAdvDBComboColumnNameProperty);

  RegisterComponentEditor(TAdvDBLookupComboBox,TAdvDBLookupComboBoxEditor);

end;


end.