以 Delphi 开发的程序运行在 xp 下时无法自动应用 xp 皮肤风格,
在网上查资料要达到程序自动适应 xp 风格效果很难, 而且大多都是使用一堆外部控件才能达到这样的效果.
今天突然发现, 只要在窗体上放一个 TXPManifest (Win32 标签下) 控件, 根本不用再设置其它属生, 程序立刻就可以自动适应 XP 风格了.
这样以前的程序不需任何大的改进即可实现 XP 风格.
不过这种方式 ,不能将菜单的样式也变过来, 但是通过使用 TActionManager 和 TActionMainMenuBar 控件的配合也能达到 XP 的效果.
注意：若添加了TXPManifest控件,再去掉TXPManifest控件后，XP效果还是去不掉，需要在Uses中将XPMan去掉。
