XE中的皮肤 XE Appearance

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

来源：oschina

链接：https://my.oschina.net/u/1777508/blog/4324996