本文參考了

http://superlevin.ifengyuan.tw/delphi-change-vcl-style/

?

在項目的工程文件中勾選主題，設置缺省主題為Windows

?

部分代碼如下：

usesVcl.Themes;procedure TfrmMain.Button1Click(Sender: TObject); beginTStyleManager.SetStyle(ComboBox1.Text); end;procedure TfrmMain.FormCreate(Sender: TObject); VarStyleName : string; beginComboBox1.Items.Clear;for StyleName in TStyleManager.StyleNames doComboBox1.Items.Add(StyleName); end;

運行效果如下：

轉載于:https://www.cnblogs.com/ChinaEHR/p/3390671.html

總結

以上是生活随笔為你收集整理的Delphi程序的主题（Theme）设置的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。