RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

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

作者:admin 来源: 日期:2014/1/24 22:55:54 人气: 标签:

在项目的工程文件中勾选主题,设置缺省主题为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;

运行效果如下:


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: