delphi10.3动态换肤、－黑色背景模式3]更改皮肤

1]黑色背景模式

2]动态换肤

3]更改皮肤

4]更改默认皮肤

---

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

---

4]更改默认皮肤

 C:\Program Files (x86)\Embarcadero\Studio\20.0\Redist\styles\vcl拷贝到工程目录下

 

program Project8;
uses
  Vcl.Forms,
  Unit8 in 'Unit8.pas' {Form8},
  DesignMain in 'DesignMain.pas' {Form1},
  Vcl.Themes,
  Vcl.Styles;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

if TStyleManager.IsValidStyle('Amakrits.vsf') then  begin
    TStyleManager.LoadFromFile('Amakrits.vsf');
    TStyleManager.trySetStyle('Amakrits');
end;
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

否则会弹出 这样的错误： 

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