在项目的工程文件中勾选主题,设置缺省主题为Windows,选择后保存
uses
Vcl.Themes;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
TStyleManager.SetStyle(ComboBox1.Text);//Windows10 主题
end;
procedure TfrmMain.FormCreate(Sender: TObject);
Var
StyleName : string;
begin
ComboBox1.Items.Clear;
for StyleName in TStyleManager.StyleNames do
ComboBox1.Items.Add(StyleName);
end;
注:侵权可联系我删除