• 334
    0

    Check the theme in the project file of the project and set the default theme to Windows Part of the code is as follows: 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; The operation effect is as follows: