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最全面的dbgrid点击标题实现排序

Delphi ifdef 另类用法

Delphi获取千千静听歌词下载地址源码

Delphi获取exe文件版本信息的函数

delph hash类

Delphi win32，win64用于单/多线程计数素数的整数性能比较

汇编文档进制及进制的转换

Delphi读写utf-8、unicode格式文本文件

Delphi 双进程监控保护

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

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

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