delphi - 如何通过 Delphi 上的 Object Repository 从包中创建可继承的自定义表单？

Question

我创建了一个用于创建自定义表单的向导。它工作正常。我可以从“文件”>“其他”>“我的向导”菜单中创建它。但是，我想添加表单和对话框的常用选项：“使用”、“继承”和“复制”。这个怎么做？是否需要实现任何接口方法来设置它是可继承的？下面是我助手的代码片段。

type
  TMyFormWizard = class(TNotifierObject, IOTAWizard, IOTAProjectWizard, IOTARepositoryWizard, IUnknown, IOTARepositoryWizard80)

...

  TUnitCreator = class (TNotifierObject, IOTACreator, IOTAModuleCreator)

...

  TBaseFile = class(TInterfacedObject)

...

  TUnitFile = class(TBaseFile, IOTAFile)

...

  TFormFile = class(TBaseFile, IOTAFile)

下面是我希望我的向导如何留下的示例图片。类似于原生 Delphi 对象（如 AboutBox）

Answer 1

如果一个向导是可继承的，那么被继承的对象就是另一个向导。我不认为这是你想要达到的目标。当然，您由向导创建的任何表单本身都是可继承的，但您必须将其添加到存储库中才能做到这一点。在创建它之前，您不能继承它。您所指的TAbout是一种表单，而不是向导。

编辑

要将您创建的表单添加到存储库，请在 IDE 中打开表单，右击它（例如在标题栏中），选择“添加到存储库...”。填写详细信息。该表单将是可继承的。

请注意，这与它是否由向导创建无关。