Delphi xe程序的主题（Theme）设置

本文整理自网络，侵删。

 
在项目的工程文件中勾选主题，设置缺省主题为Windows
 
部分代码如下：
uses
  Vcl.Themes;
    
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(ComboBox1.Text);
end;
    
procedure TfrmMain.FormCreate(Sender: TObject);
Var
 StyleName  : string;
begin
  ComboBox1.Items.Clear;
  for StyleName in TStyleManager.StyleNames do
    ComboBox1.Items.Add(StyleName);
end;
运行效果如下：
 

相关阅读 >>

Delphi app检测智能手机震动

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi 快速读取写入注册表参数值的函数

Delphi 中 16 进制转换为 10 进制

Delphi base24编码解码

Delphi 获得每个进程的cpu使用率

Delphi 递归遍历 treeview树节点

Delphi winapi: setlayeredwindowattributes - 设置窗口的透明

Delphi 获取当前系统版本号

Delphi webbrowser1 缩放网页

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

转载请注明出处：木庄网络博客 » Delphi xe程序的主题（Theme）设置