TDataModule继承

Question

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

TixDataModule = class(TDataModule);

TDM = class(TixDataModule)
end;

我该怎么做才能使其正常工作？

Answer 1

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

使用 Alt+F12 切换“dfm 作为文本”和“dfm 作为视觉”。

Answer 2

1. 由于TixDatamodule只是TDatamodule的同义词，因此您可以直接从TDataModule继承。
2. 如果您确实想从TixDataModule继承，则将TixDataModule放在单独的单元中，并具有自己的.dfm。