oidsgn.pas

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

unit OIDsgn;

interface

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

uses
  DesignIntf, DesignEditors,
  Classes;

type
  TOIComponentProperty = class(TComponentProperty)
    procedure GetValues(Proc: TGetStrProc); override;
  end;

implementation

procedure TOIComponentProperty.GetValues(Proc: TGetStrProc);
var
  P: TPersistent;
begin
  inherited;
  P:=GetComponent(0);
  if P is TComponent then Proc(Designer.GetObjectName(TComponent(P).Owner));
end;

end.