您的位置:首页 > 编程语言 > Delphi

Delphi程序的主题(Theme)设置

2013-10-27 11:02 295 查看
本文参考了

http://superlevin.ifengyuan.tw/delphi-change-vcl-style/

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


运行效果如下:



内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: