DataModule 中CLASSGROUP有什么用处

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防止用户往上面放置可视控件用的。