Delphi程序的主题（Theme）设置

本文参考了

http://superlevin.ifengyuan.tw/delphi-change-vcl-style/

 

在项目的工程文件中勾选主题，设置缺省主题为Windows

 

部分代码如下：

uses
  Vcl.Themes;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(ComboBox1.Text);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
Var
 StyleName  : string;
begin
  ComboBox1.Items.Clear;
  for StyleName in TStyleManager.StyleNames do
    ComboBox1.Items.Add(StyleName);
end;

运行效果如下：