1]黑色背景模式

2]动态换肤

3]更改皮肤

1]黑色背景模式

uses  Vcl.Styles, vcl.Themes;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TStyleManager.LoadFromFile('Windows10Dark.vsf');
  TStyleManager.SetStyle(TStyleManager.StyleNames[1]);
end;

　　 //VCL 的样式文件 *.vsf 在 C:\Program Files (x86)\Embarcadero\Studio\20.0\Redist\styles\vcl

文件名不一定是 样式名

 

 

2]动态换肤

http://www.delphiw.com/show/?id=NDI5Ng==

 拖一个ComboBox1到界面上，用于加载皮肤列表：

uses Vcl.Themes, Vcl.WinXCtrls;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
TStyleManager.SetStyle(ComboBox1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  StyleName: string;
begin
  for StyleName in TStyleManager.StyleNames do
    ComboBox1.Items.Add(StyleName);

  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf
    (TStyleManager.ActiveStyle.Name);
end; 

3]更改皮肤 

 //VCL 的样式文件 *.vsf 在 C:\Program Files (x86)\Embarcadero\Studio\20.0\Redist\styles\vcl

 http://docwiki.embarcadero.com/RADStudio/Alexandria/en/Bitmap_Style_Designer

  这个图片就是属于 Amakrits 的图片，每个控件的皮肤都在一定的位置上，位置不能改变。不过万一改变也没关系，因为你可以用鼠标左键或右键改他的坐标。我们只有得到了png图片，才能用图形编辑软件进行编辑，我用的是 ps（Photoshop cc ）;

https://blog.csdn.net/u013408061/article/details/73292195

 总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。总是说我字少。 总是说我字少。 总是说我字少。 总是说我字少。