如何通过Delphi上的对象存储库从包创建可继承的自定义表单？

Question

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

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 中打开该表单，右键单击它（例如在标题栏中），然后选择“添加到存储库...”。填写详细信息。该形式将是可继承的。

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