Delphi程序的主题（Theme）设置
本文参考了
http://superlevin.ifengyuan.tw/delphi-change-vcl-style/
在项目的工程文件中勾选主题，设置缺省主题为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;
运行效果如下：
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。