TDataModule наследование

Question

Когда я пытаюсь наследовать TDataModule, Delphi рассматривает класс-потомок как форму, присваивая им свойства, такие как шрифт и свойства клиента(исключение «свойство не существует» во время выполнения)

TixDataModule = class(TDataModule);

TDM = class(TixDataModule)
end;

Что я могу сделать, чтобы это работало?

Answer 1

Убедитесь, что все унаследованные компоненты помечены inherited вместо object в dfm.

Переключите "dfm как текст" и "dfm как визуальный" с помощью Alt + F12.

Answer 2

1. Поскольку TixDatamodule является просто синонимом TDatamodule, вы можете наследовать напрямую от TDataModule
2. Если вы действительно хотите наследовать от TixDataModule, поместите TixDataModule в отдельный модуль с собственным .dfm.