请问各位高手,用delphi7如何做出xp菜单,我知道不用下载其他控件就可以做到,请问各位老师如何实现,能举例说明更好,谢谢!!
解决方案 »
- API 获得多个文本框句柄
- 我要打印下面样式的表单,怎么实现,在线急等!
- 各位大哥,请教:当我执行完一条sql语句后,在调用adoquery.first或adoquery.next方法时,出现“缺少更新或刷新的键列信息.”
- 在FastReport或QReport中如何获得当前页数的汇总?
- 关于treeview的问题
- 怎样把一个字符串转换成ACII码(函数)
- delphi调用 webservice 提示Unmarshalling Error
- 求《Delphi4从入门到精通》《Delphi 3从入门到精通》《Delphi高级开发指南》三本书的电子版,格式不限
- 在这里提问有限制吗?怎么老是失败? 此单提交后我再打不开,能否新建单子答复,多谢!
- 怎么解决这个关于数据感知控件的问题?
- 第一次来这儿问一个irc服务器和客户端的编程(有资料更好)【分不够我再注册一个】
- 菜鸟问题:关于override,inherid,搞不懂什么意思,作什么用的?
作者: 评价: 上站日期:
内容说明:
来源: --------------------------------------------------------------------------------
要在自己的程序中实现Windows XP的视觉效果,就要给程序增加一个说明文件。这个说明文件可以是程序的资源文件,也可以是同路径下的文件。{
要在自己的程序中实现Windows XP的视觉效果,就要给程序增加一个说明文件。
这个说明文件可以是程序的资源文件,也可以是同路径下的文件。
这个说明文件是一个XML文件。它让Windows XP在链接数据时决定使用哪种版本的comctl32.dll。
这个XML文件含有你编写的程序的信息和使用的comctrl32.dll版本信息。
下面介绍如何
创建说明文件,
创建XP资源文件,
包含到应用程序中。
步骤1-4介绍如何创建这些文件。文末可以下载示例。}
(1) 将下面的XML代码拷贝到文本编辑器:< ?xml version="1.0" encoding="UTF-8" standalone="yes"?>
< assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
< assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="Microsoft.Windows.MyApplication"
type="win32"
/>
< description> Your Application Description< /description>
< dependency>
< dependentAssembly>
< assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="4.0.0.0"
processorArchitecture="X86"
publicKeyToken="4495b64144ccf1df"
language="*"
/>
< /dependentAssembly>
< /dependency>
< /assembly> (2) 将文中description标记的内容和assemblyIdentity标记的"name"改写成你自己的内容。然后将文件存为:WinXP.txt。(3) 创建一个资源文件来指向上面的文件,资源文件名为WinXP.rc:
1 24 "WinXP.txt" 。
(4)
现在要用Delphi的资源编译器(brcc32.exe)来编译WinXP.rc。
在命令行键入指令:
brcc32 WinXP.rc
编译之后生成WinXP.res文件。
(5) 在应用程序中包含这个资源文件,并在{$R *.DFM}之后注明{$R WinXP.res}。(6) 编译程序并运行。(7)
测试程序是否正常。
注意,有些组件,如TGroupBox, TSpeedButton等不支持XP模式。
如果使用TListView组件,请阅读《TListView在XP中的补丁程序》
终于可以不用任何控件作出XP风格的程序了
作者: 评价: 上站日期:
内容说明:
来源: --------------------------------------------------------------------------------
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下运行你的程序呢?嗬嗬
设置鼠标在整个屏幕的风格:
设置:
h:=loadcursorfromfile('c:\windows\desktop\hand.cur');
setsystemcursor(h,ocr_normal);
恢复:
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);