Delphi7中有个XP控件,加上去,就可以完全变成XP样式了,或者自己写一个资源文件,在在
程序中引用,也可以实现,那个控件也就是这个道理。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1186727
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.RES
3. 在Delphi(2~6)中包含这个资源文件就可以了!在哪里包含?!@#$%^& 我倒!
注意:这只在WindowsXP下可以,在旧的操作系统上,外观不变!你就放心的加上吧!万一有人在XP下运行你的程序呢?嗬嗬!
转载请保留文章完整性! Writen By Dext!^_^