Delphi XE8 TStyleBook的使用

Posted 2020-06-19 小小猫钓小小鱼

Delphi XE8来了，FMX的性能有了巨大的提升，比如：XE7下ListBox上下滑动的卡顿已经不复存在，直接用xe8编译后，再上下划动ListBox，已经变的非常流畅。另外，也见到有网友说，通过测试内存表，发现xe8编译后有20%的提升。
如果你实做一个项目，第一件事肯定要美化一下界面，这时候，TStyleBook就一定用到了。本以为用前期学习的结果就可以，没想到，还是纠结了我两天的时间，才找到方法。
有多种方法使用Style：
第一种方法，是在MainForm上放stylebook，然后设置StyleBook.UseStyleManager:=True,这样，所有的窗口就自动使用这个StyleBook.
第二种方法，在项目源文件中，加载一个Style文件。
首先发布一个style文件：

这里，远程目录为：assets\internal\,然后在项目文件中调入：

我遇到用第一种方法，会产生错误，即进一个Form就死掉，后查明：原因我为一个Toolbar设置了StyleLookup属性，而这个StyleLookup值在调入的Style文件中不存在，所以产生死掉的现象！把这个StyleLookup清掉就OK。对这个问题，只能说Xe8的不完善，对这种情况，如果给出清晰的错误提示，就不会浪费我好几天的时间来查了。