Delphi XE 新功能试用：多种皮肤样式静、动态设置方法

静态方式：
1、新建VCL Forms Application；
2、打开菜单Project - Application - Appearance；
3、在Custom Styles中可选择所有默认带的皮肤样式；
4、设置Default style后，启动软件后便以默认的样式显示界面。
 
动态方式：
1、完成静态方式的1-3步；
2、引用Vcl.Themes；
3、使用方法TStyleManager.SetStyle('Aqua Light Slate')，参数为样式的名称。

另外，看看这个，挺有意思的，这也是一个思路呀

http://www.hao828.com/html/?1604.html

但是为什么我使用不可以呀？

XE中的皮肤 XE Appearance

 (2017-01-09 11:38:20)

转载▼

分类： Delphi(DelphiX)

Project/Options/Application/Appearance/Custom Styles

uses Vcl.Themes

  for StyleName in TStyleManager.StyleNames do
    if ListBox1.Items.IndexOf(Name)=-1 then
      ListBox1.Items.Add(StyleName);
 

  TStyleManager.SetStyle('xxxxxx');

可以自制：
Tools/Bitmap Style Designer
C:＼Users＼Public＼Documents＼RAD Studio＼10.0＼Styles