在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
本文参考了 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; 运行效果如下: |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论