ado_qexport4reg.pas

来自「Advanced.Export.Component.v4.01.rar,delp」· PAS 代码 · 共 30 行

unit ADO_QExport4Reg;

{$I VerCtrl.inc}

interface

procedure Register;

implementation

uses {$IFDEF VCL6}DesignIntf{$ELSE}DsgnIntF{$ENDIF}, QExport4Dsgn, Classes,
  ADO_QExport4Access, ADO_QExport4Dsgn, ADO_QExport4Dialog, QExport4Common;
{$R *.dcr}

procedure Register;
begin
  RegisterComponents(S_COMPONENT_PAGE, [TADO_QExport4Dialog,
                                        TADO_QExport4Access]);
  RegisterPropertyEditor(TypeInfo(string), TADO_QExport4Access, 'DatabaseName',
    TQDatabaseNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TADO_QExport4Dialog, 'About',
    TQExportAboutProperty);
  RegisterPropertyEditor(TypeInfo(string), TADO_QExport4Dialog, '_Version',
    TQExportVersionProperty);

end;

end.