从泛型类派生出困扰设计师

Question

我有以下基类

TServiceSubModuleSkel<T: TObjectSkel> = class(TDataModule)

和派生类

TFetchPersonList = class(TServiceSubModuleSkel<TPersonService>)

TPersonService来自TObjectSkel。

在代码中一切正常（它按预期编译并运行）。但在我看来，设计师会把一切搞得一团糟：每当我试图打开TFetchPersonList时，设计时都会出现一条错误信息：

  

“创建公式时出错：找不到基类”。

此外，打开基类（它本身是从TDataModule派生的）不起作用：以下错误消息在屏幕上弹出三次：

  

“模块ServiceSubModule中的错误：TServiceSubmodule类声明丢失或错误”

这根本不可能，还是我做错了什么？

Answer 1

不，你没有做错任何事。设计师不支持这一点。