Delphi 程序动态改变皮肤


本文整理自网络,侵删。

 
前期准备:


uses Vcl.Themes, Vcl.WinXCtrls;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
TStyleManager.SetStyle(ComboBox1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
StyleName: string;
begin

 for StyleName in TStyleManager.StyleNames do
    ComboBox1.Items.Add(StyleName);
    ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);


end;

效果图

相关阅读 >>

Delphi以二进制方式读取图片并显示出来

Delphi 汉字转十六进制的函数,可以互转不乱码

Delphi如何在资源管理器中定位文件

firemonkey 手机 app 的手势

Delphi 用dde控制word

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi开发的服务中调用指定应用程序

Delphi webservices传base64字串

Delphi 获取电脑进程网络连接ip端口

Delphi与正则表达式

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...