Delphi xe程序的主题(Theme)设置


本文整理自网络,侵删。

 

在项目的工程文件中勾选主题,设置缺省主题为Windows

 

部分代码如下:

uses
  Vcl.Themes;
    
procedure TfrmMain.Button1Click(SenderTObject);
begin
  TStyleManager.SetStyle(ComboBox1.Text);
end;
    
procedure TfrmMain.FormCreate(SenderTObject);
Var
 StyleName  : string;
begin
  ComboBox1.Items.Clear;
  for StyleName in TStyleManager.StyleNames do
    ComboBox1.Items.Add(StyleName);
end;

运行效果如下:

相关阅读 >>

Delphi idhttp基本使用方法

Delphi listbox自动获取列表框中的组件焦点

Delphi 圆角panel

Delphi下载指定网址(url)的文件,带进度条显示

Delphi遍历指定目录下指定类型文件的函数

Delphi 读写附加数据

Delphi中实现密码框“大写锁定打开”的提示

Delphi的tservice的windows�入桌面切�q

Delphi 截取被遮挡的window画面

Delphi now 返回当前日期及时间

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...