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 getwebbrowserhtml 获取网页源代码

Delphi中使用自定义字体

Delphi 检查父进程

Delphi中获取当前用户sid

Delphi中的进制转换

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi如何开发游戏外挂

Delphi中用ado连接加密access数据库

Delphi fmx检查应用程序状态更改

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

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