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 firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi 内存管理[5]

Delphi简单的字符串加密解密函数

Delphi 接口尚未调用尚未调用coinitialize解决办法

Delphi 获取本地ip地址源码

Delphi 字符串保存为 txt文件

Delphi图表控件tchart使用faq

Delphi 对gzip解压

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

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

转载请注明出处：木庄网络博客 » Delphi 程序动态改变皮肤