惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

WordPress大学
WordPress大学
小众软件
小众软件
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
博客园 - Franky
Jina AI
Jina AI
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
Y
Y Combinator Blog
V
Visual Studio Blog
C
Check Point Blog
阮一峰的网络日志
阮一峰的网络日志
U
Unit 42
量子位
人人都是产品经理
人人都是产品经理
博客园 - 聂微东
M
MIT News - Artificial intelligence
爱范儿
爱范儿
B
Blog RSS Feed
MyScale Blog
MyScale Blog
H
Help Net Security
Cyber Security Advisories - MS-ISAC
Cyber Security Advisories - MS-ISAC
美团技术团队
L
LangChain Blog
D
Docker

博客园 - qevan

QCanvasTextWriter 把字体保存到注册表或流中 structures显示的模块的bpl - qevan - 博客园 delphi跟踪调试vcl代码的方法 QTrayIcon v1.0B 根据delphi版本进行编译 中国共享软件注册提供商的比较 Delphi中资源文件使用详解 zz ShowBalloonTips @ TrayIcon 如何在DELPHI程序中顯示Balloon工具提示﹖ zz 分割人名的代码 电话薄的AT指令 zz 读取中文电话簿 AT+CPMS指令的意义以及AT+CNMI自动接收短信时的方法 一篇短信at指令介绍的文章, 摘过来 短信相关文章的连接 16进制字符转换为10进制 delphi c#的PDU-SMS编程代码 zz Delphi 2005纯WIN32开发环境
在气泡式提示窗口中显示关闭按钮 zz
qevan · 2005-03-27 · via 博客园 - qevan

在气泡式提示窗口中显示关闭按钮

作者: 时间: 2004年7月8日 16:19:50 来源:CSDN

    

  其实微软MSDN 里面已经很明确的说明了,不仅仅需要 TTS_CLOSE (0x80),而且还要让你自己实现 XP 风格,也就是下面常用的两种方法:

  1、在可执行文件里插入一个资源类型为 24,ID 号为 1 的资源实现 XP 风格,资源 1 的内容见方法 2。
  2、在应用程序目录添加一个和应用程序同名的.exe.manifest文件,内容如下:


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
  name="把这里换成你的应用程序名"
  processorArchitecture="x86"
  version="1.0.0.0"
  type="win32"/>
<description>把这里换成你的应用程序描述</description>
<dependency>
  <dependentAssembly>
    <assemblyIdentity
      type="win32"
      name="Microsoft.Windows.Common-Controls"
      version="6.0.0.0"
      processorArchitecture="x86"
      publicKeyToken="6595b64144ccf1df"
      language="*"
    />
  </dependentAssembly>
</dependency>
</assembly>


  这样的话如果你的程序在 Windows XP 或 2003 下运行就有关闭按钮的效果了,甚至还可以加上链接,其实只需一个标志 TTF_PARSELINKS (0x1000),然后如果你的提示信息里面如果有 <A>...</A> 这样的内容的话,那 至 之间的内容就是要显示为链接的文本。

  注意:在程序初始化时先调用一下 InitCommonControls 这个 API 函数。