Delphi 完全时尚手册之 Visual Style 篇---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格

Delphi 完全时尚手册之 Visual Style 篇
---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格

    这里先说说两个概念：Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中，是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、Icons 等的设置值集合。Visual Style 在 Windows XP 中才被引入，Visual Style 规定了 Contorls 的外观，另外还包括使用这些外观的一套 API 。使用 Visual Style 必须要 ComCtl32.dll 6，而 ComCtl32.dll 6 是不能被分发到以前版本的 Windows 中的，所以只能在 Windows XP 下使用 Visual Style。

    Delphi 7 (后面简称 7 吧)对 Visual Style 提供了较好的支持。首先 7 将那个 Menifest 封装成了 VCL - TXPMenifest，另外增加了 UxTheme.pas 单元，里面是对 Visual Style 的一套 API 及其结构、常数等的引用声明（大概有 47 个API 函数），更重要的是 7 还增加一个 Themes.pas 单元，里面是对这套 API 的更进一步的简化和封装，7 下的 Win32 控件对 Visual Style 的支持较 Delphi 6有了很大改观，就是这个单元的功劳。

    一般来说要使 7 下编译的程序在 Windows XP 具有 Visual Style ，只需在主窗体上放入 VCL - TXPMenifest 即可，但对于一些非标准或是自画的控件，还是经典的界面。这里就说一下如何用 Themes.pas 中提供的方法使这些控件具有 Visual Style 。