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;

效果图

 

相关阅读 >>

secsperday：一天共有多少秒

Delphi 移位函数

Delphi动态创建控件的例子

Delphi jpeg图片压缩

Delphi 如何将颜色值转换为html格式？

Delphi 关于动态数组指针操作的两个例子

Delphi tstylemanager读取vsf皮肤文件信息

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi 时间与相关类型(3): tfiletime、tsystemtime 及 dos 时间

Delphi webservice 中采用 tsoapattachment 传输文件

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

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