在项目的工程文件中勾选主题,设置缺省主题为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;
运行效果如下: