delphi XE2 TStyleManager的问题

iqyely 2011-12-06 09:37:30

大家好，在使用TStyleManager的时候遇到了些问题，想求助于大家。
用TStyleManager设置后，在toolbar的customdrawbutton中写了自绘的代码，但调试运行时发现根本不起作用，不用TStyleManager的话自绘代码才会执行。目前也不知道如何解决，希望能帮帮我，谢谢。

...全文

513 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Mit1208 2011-12-12

打赏
举报

回复

一直用的是XE。。。
还没更新到XE2呢

iqyely 2011-12-11

打赏
举报

回复

[Quote=引用 2 楼 warrially 的回复:]

引用 1 楼 iqyely 的回复:

额，大家没有迁移到XE2上的么？

XE2 的皮肤太少太丑了,,, 没用... 还是先换吧
[/Quote]

皮肤可以自己做的吧。

爱蹄子的羊头 2011-12-07

打赏
举报

回复

[Quote=引用 1 楼 iqyely 的回复:]

额，大家没有迁移到XE2上的么？
[/Quote]

XE2 的皮肤太少太丑了,,, 没用... 还是先换吧

iqyely 2011-12-07

打赏
举报

回复

额，大家没有迁移到XE2上的么？

在新版本中，你可以直接给你的程序换皮肤/skin（主题），Project-> Options -> Application -> Appearance，在这里选一个你想要的主题，当然，你可以在你的程序里自己设定，为了使用VCL Styles，你需要使用TStyleManager类，Themes单元，如下几步：注册Style 从文件加载（注册）VCL style，需要使用TStyleManager类中的LoadFromFile函数，复制代码 procedure RegisterSty

http://hi.baidu.com/pcplayer99/item/f9cc08ddc5c3e8ed54347f17 XE2 内置了对 VCL 的皮肤支持，皮肤文件扩展名为 vsf。以下代码加载皮肤文件： procedure TForm1.GetThemes; var dir, FileName, StyleName:

其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种. 在空白窗体上添加 ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject); var dir, fileName, styleName

为什么80%的码农都做不了架构师？>>> ...

IDE不是很稳定，打开INC文件保存会出现无法更名错误 XE2 UPDATE1出得也太快了，对其可靠性还有所怀疑不知道XE2为什么还是不提供默认ANSISTRING的版本，竟然支持SHORTSTRING却不支持ANSISTRING做默认，很奇特的想法要知道STRING本身就是DELPHI的一大特色，不能默认支持ANSISTRING会极大降低效率

5,943

社区成员

262,943

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章