delphi-2010 - TDataModule 继承

Question

当我试图继承 TDataModule 时，Delphi 将后代类视为一种形式，为它们提供字体和客户端属性等属性。（运行时出现“属性不存在”异常）

TixDataModule = class(TDataModule);

TDM = class(TixDataModule)
end;

我该怎么做才能让它发挥作用？

Answer 1

确保所有继承的组件都用 dfm 标记，inherited而不是object在 dfm 中。

使用 Alt+F12 切换“dfm as text”和“dfm as visual”。

Answer 2

1. 由于 TixDatamodule 只是 TDatamodule 的同义词，您可以直接从 TDataModule 继承
2. 如果您真的想从 TixDataModule 继承，那么将 TixDataModule 放在一个单独的单元中，并带有自己的 .dfm。