inspreg.pas

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

unit InspReg;

interface

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

uses
  DesignIntf, DesignEditors,
  Classes, OIDsgn, PropIntf, InspCtrl, CompInsp, DBInsp, AppInsp, IniInsp,
  SColInsp,CtrlDes;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyDesigners', [TControlDesigner]);
  RegisterComponents('MyInspectors',[TPropertyInterface,TCommonInspector,TComponentInspector,TComponentTree,TComponentComboBox,TIniInspector,TDBInspector,TApplicationInspector,TSystemColorsInspector]);
  RegisterPropertyEditor(TypeInfo(TComponent),TPropertyInterface,'Root',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TPropertyInterface,'Instance',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentInspector,'Root',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentInspector,'Instance',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentTree,'Root',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentTree,'Instance',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentComboBox,'Root',TOIComponentProperty);
  RegisterPropertyEditor(TypeInfo(TComponent),TComponentComboBox,'Instance',TOIComponentProperty);
end;

end.