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

Question

我已经创建了一个用于创建自定义表单的向导。它正常工作。我可以从File＆gt;创建它。其他＆GT; '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中打开表单，然后单击它（例如在标题栏中），选择“添加到存储库...”＃39;。填写详细信息。表格将是可继承的。

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