Delphi 7 下实现XP风格(转)

======================================================
注：本文源代码点此下载
======================================================

delphi 7 下实现xp风格(转)

以 delphi 开发的程序运行在 xp 下时无法自动应用 xp 皮肤风格,

在网上查资料要达到程序自动适应 xp 风格效果很难, 而且大多都是使用一堆外部控件才能达到这样的效果.

今天突然发现,只要在窗体上放一个 txpmanifest (win32 标签下) 控件,根本不用再设置其它属生, 程序立刻就可以自动适应 xp 风格了.

这样以前的程序不需任何大的改进即可实现 xp 风格.

不过这种方式 ,不能将菜单的样式也变过来,但是通过使用 tactionmanager 和tactionmainmenubar 控件的配合也能达到 xp 的效果.

注意:若添加了txpmanifest控件,再去掉txpmanifest控件后,xp效果还是去不掉,需要在uses中将xpman去掉。

绿色通道:好文要顶关注我收藏该文与我联系

posted on 2010-02-20 09:17 耐心 阅读(146) 评论(0)编辑 收藏

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/