createdesignerdreg.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit CreateDesignerDReg;

interface

{$IFDEF VER140}
{$DEFINE NEWDSGNINTF}
{$ENDIF}
{$IFDEF VER150}
{$DEFINE NEWDSGNINTF}
{$ENDIF}
{$IFDEF VER170}
{$DEFINE NEWDSGNINTF}
{$ENDIF}

uses
  DesignIntf, DesignEditors, MyInspector,
  Classes, Createdesigner, CreatedesignerEditor, CreatedesignerDsgn;

procedure Register;

implementation

//{$R FDREG.DCR}

procedure Register;
begin
  RegisterComponents('MyDesigners', [TFormDesigner]);
  RegisterComponents('MyDesigners', [TMyFormDesigner]);
  RegisterComponents('MyDesigners', [TMyComponentInspector]);
  RegisterComponentEditor(TCustomFormDesigner,TFormDesignerEditor);
end;

end.