delphi - 作为属性的类引用

Question

Google 对于此类搜索毫无用处，因为您会得到数亿个结果，其中没有一个与特定问题相关。

问题很简单:

• Delphi 中是否可以有类引用属性？
• 如果是这样，怎么做？

这是我尝试过的...

type

  TMyObject = class
    // ...
  end;

  TMyObjectClass = class of TMyObject

  TMyObjectA = class(TMyObject)
    // specifics here
  end;

  TMyObjectB  =class(TMyObject)
    // specifics here
  end;

  TMyComponent = class(TComponent)
  private
    FObjectType: TMyObjectClass;
  published
    property ObjectType: TMyObjectClass read FObjectType write FObjectType;
  end;

上面的代码可以正常编译，但是对象检查器根本不显示 ObjectType 属性。

我的目标(如果您还没有猜到)是让我可以从特定基类中选择一个类后代，以使相同的组件以不同的方式运行。

我想这样做，以便组件不需要直接了解子类(它需要完全模块化)。

让我澄清一下:我无法使用枚举在子类类型之间进行选择，因为组件无法直接链接到子类类型(这根本不是在这种特殊情况下可能)

无论如何...提前致谢!

Answer 1

您可以找到从特定基类派生的所有类:Delphi: At runtime find classes that descend from a given base class?并使用 TPropertyEditor 将其设为具有值列表的特殊属性。