implementation
{%CLASSGROUP 'FMX.Controls.TControl'}
or
{%CLASSGROUP 'VCL.Controls.TControl'}
数据模块pas文件中这句代码有啥用?
1、由于 TDataModule 最初是框架中立的,因此只能在其上放置框架中立的组件。
它旨在防止仅 FMX 的组件被放置在 VCL 可访问的 DataModule 上,反之亦然。
它旨在防止仅 VCL 的组件被放置在 FireMonkey 可访问的 DataModule 上,反之亦然。
2、仅IDE用的,伪属性。
参考:https://stackoverflow.com/questions/11250019/what-does-tdatamodule-classgroup-pseudo-property-in-delphi-xe2-really-do
结论,
IDE防止用户往上面放置可视控件用的。