TDataModule继承

Question

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

TixDataModule = class(TDataModule);

TDM = class(TixDataModule)
end;

我能做些什么让它发挥作用？

Answer 1

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

使用Alt + F12将“dfm切换为文本”和“dfm as visual”。

Answer 2

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