如何在Delphi中实现仿XP菜单？最好是封装为一个简单的类或者模块，可以直接调用就可以把原来的Windows效果菜单变为XP效果。

Question

如何在Delphi中实现仿XP菜单？最好是封装为一个简单的类或者模块，可以直接调用就可以把原来的Windows效果菜单变为XP效果。

Answer 1

1．建立一个叫themed.manifest的文本文件
< ?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
< assembly xmlns="urn:schemas-microsoft-com:asm.v1" 
manifestVersion="1.0"> 
< assemblyIdentity
    name="Your.Application.Name.Here"
    processorArchitecture="x86"
    version="1.0.0.0"
    type="win32"/> 
< description> WindowsXP Shell< /description> 
< dependency> 
    < dependentAssembly> 
        < assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        /> 
    < /dependentAssembly> 
< /dependency> 
< /assembly> 2．再建立一个资源文件 就叫 XPStyle.RC吧！内容如下：
1 24 “themed.manifest”
用Brcc32 编译成XPStyle.RES3. 在Delphi(2~6)中包含这个资源文件就可以了！在哪里包含？!@#$%^& 我倒！注意：这只在WindowsXP下可以,在旧的操作系统上,外观不变！你就放心的加上吧！万一有人在XP下运行你的程序呢？嗬嗬！

Answer 2

http://community.borland.com/article/0,1410,28423,00.html

Answer 3

XPMenu是好。有没有DLL之类的可以方便其他开发工具调用？

Answer 4

delphi7自带，devexpress 的ebar4.2也不错，www.51delphi.com有下载