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