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;

运行效果如下：