TDataModule继承

Question

当我试图继承TDataModule时,Delphi将后代类视为一种形式,为它们提供字体和客户端属性等属性.(运行时"属性不存在"异常)

TixDataModule = class(TDataModule);

TDM = class(TixDataModule)
end;

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

Answer 1

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

使用Alt + F12将"dfm as text"和"dfm as visual"切换.

@JustMe:+1; 这确实是"财产不存在"问题的原因.另见我的[TInterfacedDatamodule revisited](http://wiert.wordpress.com/2009/08/20/delphi-tinterfaceddatamodule-revisted-inherited-in-your-dfm-files-when-your-datamodules-look-like-设计中的形式/博客文章,以获得该答案所解释的更详细的示例.本文解释了如何进行DataModule继承,以及如何纠正您现在想要从`TixDataModule`继承的数据模块. (2认同)