Delphi中如何通过对象仓库创建可继承自定义表单及完善向导选项？

要给你的自定义表单向导添加这三个常规选项，核心是要实现IOTARepositoryWizard90接口（对应Delphi 2009及以后版本）——这个接口专门扩展了向导类型的配置能力，之前的IOTARepositoryWizard80没有提供这个功能，所以默认只会显示"Use"选项。

下面是具体的实现步骤：

1. 更新向导类的接口继承列表 #

首先把IOTARepositoryWizard90添加到你的向导类的接口声明中，比如：

type
  TMyFormWizard = class(TNotifierObject, 
    IOTAWizard, 
    IOTAProjectWizard, 
    IOTARepositoryWizard, 
    IOTARepositoryWizard80,
    IOTARepositoryWizard90) // 新增这个接口
    // 已有的方法声明（比如GetIDString, GetName, GetState等）
    function GetWizardType: TWizardType; // 新增这个方法声明
  end;

2. 实现GetWizardType方法 #

这个方法返回一个TWizardType集合，用来指定向导支持的选项：

• wtUse：直接使用模板（生成的代码直接引用模板类）
• wtInherit：继承模板类（生成新的子类）
• wtCopy：复制模板文件到项目目录（生成独立的表单代码，不依赖原模板）

示例实现：

function TMyFormWizard.GetWizardType: TWizardType;
begin
  // 支持所有三个选项，按需调整集合内容
  Result := [wtUse, wtInherit, wtCopy];
end;

如果只需要其中部分选项，比如只支持Use和Inherit，就返回[wtUse, wtInherit]即可。

3. 确保模板符合要求 #

• 对于Inherit选项：你的模板表单类不能是final类，构造函数需要是public访问级别，这样子类才能正确继承。
• 对于Copy选项：OTAWizard框架会自动处理文件复制逻辑，你只需要确保模板文件的路径配置正确（通常在向导的GetTemplateFile方法中指定）。

4. 测试效果 #

重新编译你的向导包，安装后打开Delphi，通过【文件>其他>‘MyWizards’】打开向导，就能看到这三个选项了。

补充说明：如果你的Delphi版本更早（比如Delphi 2007及以前），可能需要使用IOTACreatableWizard接口来实现类似功能，但从你的代码片段里的IOTARepositoryWizard80来看，你用的是较新的版本，所以IOTARepositoryWizard90是最合适的方案。

内容的提问来源于stack exchange，提问作者AnselmoMS