程序员经验分享-hwhale

如何在Delphi中显示Vista风格的气球提示？

2024-05-17

在输入验证时，我使用气球提示而不是消息框。 我的问题是，在 Vista 上，它们具有带圆角的旧 XP 样式，而不是较新的矩形外观。

我尝试使用 CreateWindowEx 创建它们并且tooltips_class32或使用 SendMessageW 显示编辑的关联气球提示和EM_SHOWBALLOONTIP， 结果是一样的。 在 Visual Studio 和 C# 中执行相同的操作会产生 Vista 风格的气球提示。

您可以看到我需要的气球提示的示例，当您在密码编辑时切换 Caps Lock 时，就像 Windows 登录中的那样。


如果您使用的是 Delphi 2009，那么添加气球提示相当简单，尽管文档很差。 （惊喜，惊喜）

  • 在您的表单上放置 T气球提示
  • 如果需要，拖放一个 TImageList 以包含图标。
  • 将 TIMageList 链接到 T BalloonHint
  • 将表单的 CustomHint 属性设置为 TBalloonHint
  • 确保您的控件的 ShowHint 和 ParentCustomHint 设置为 true。

下一位是非常不明显 http://qc.codegear.com/wc/qcmain.aspx?d=67445:

  • 将控件的“提示”属性格式化为“标题|提示|图像索引”

你完成了。这看起来并不 100% 像 vista，可能是由于字体选择的原因。但它非常接近。

Delphi 2009
(source: codegear.com http://dn.codegear.com/article/images/38757/0300000D.png) ,

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

Delphi

WINAPI

如何在Delphi中显示Vista风格的气球提示？ 的相关文章

随机推荐

  • 如何创建可点击的gridview行？

    我想创建一个 gridview 行 其中整行都是可单击的 当我单击该行上的任意位置时 它会打开另一个包含行信息的 aspx 页面 我正在使用 asp net 和 C 任何人都可以帮助我吗 提前致谢 触发 Gridview 的两个事件 OnR

  • 如何设置变量内的浮点精度

    我目前正在编写一个程序 需要将浮点后的四舍五入值计算为仅 2 位数字 说吧 我已经声明了 float a If a 3 555然后它会存储a 3 56 围捕 For a 3 423 a的值是a 3 423 不用找了 我可以这样做来打印输出

  • HTTPS URL 的基本代理身份验证返回 HTTP/1.0 407 需要代理身份验证

    我想在 Java 中使用具有基本身份验证 用户名 密码 的代理来进行连接 并且仅此连接 以下代码适用于 HTTP URL 例如 http www google com http www google com URL url new URL

  • 如何使用scala获取elasticsearch中_delete_by_query api的状态

    我正在 scala 中向 elasticsearch 发送 HTTP post Http s http elkIp 5051 indexName delete by query postData s query terms zip id k

  • 具有连字符的 Oracle 正则表达式在 Windows 上给出的结果与在 Unix 上不同

    我有以下带有正则表达式的查询 select REGEXP REPLACE TEST 3304 V2 lt gt as REG from dual 当通过 SQL Plus 在Windows机器返回以下内容 SQL gt select REG

  • primefaces 二维码未显示？

    I am using primefaces to develop a web app I am trying to show the bar code on mhe webpage All coders are shown except t

  • Visual Studio 2010 中的 SOIL 设置

    我无法得到SOIL http www lonesock net soil html正确使用 Visual Studio 2010 我远非 VS 专家 但据我所知 只需执行以下步骤即可使环境正常运行 属性 gt gt C C gt 常规 gt

  • Matlab的导入函数的范围是什么？

    我正在尝试将一些用 Matlab 编写的代码转换为独立的 编译的 Matlab 应用程序 然而 在出现一些奇怪的错误之后 我意识到代码大量使用了从路径中添加和删除的操作 以避免多次使用多个具有相同名称 但结果 计算不同 的函数这一事实 环顾

  • matplotlib 图形的乳胶渲染文本中的中心标题

    我想将 Matplotlib 图形的标题居中 其中在渲染 LaTeX 样式时包含换行符返回 在标题中间插入 Latex 的简单返回代码可以工作 但不会使其居中 从而导致换行符从第一行尴尬地移动 from matplotlib import

  • 选中复选框时如何向文本区域添加值

    我正在使用我刚刚在 SO 上找到的以下函数 该函数可以解决我的问题 只有一个问题是 我有一长串选择列表 当用户选中超过 3 4 个复选框时 某些文本或添加到文本区域的值不再可见 有没有什么方法可以让每次选中一个框时添加到文本区域的文本始终可

  • 尝试实现查找或插入时 HashMap 借用问题

    我尝试实现自己的类似物find or insert方法看起来像这样 use std collections HashMap pub struct SomeManager next i32 types HashMap

  • 解码南非 (ZA) 驾驶执照

    我正在编写一个扫描 PDF417 条形码的解决方案 http en wikipedia org wiki PDF417 http en wikipedia org wiki PDF417 位于南非 iOS 驾驶执照背面 我找不到任何有关如何

  • 已定义方法的 Ruby 钩子？

    我一直在谷歌上搜索这个问题 但找不到答案 这让我认为答案是否定的 但我想我会在这里问 以防有人确切知道 Ruby 是否有一个钩子来定义方法 即在模块或类上 如果没有 是否有人足够熟悉该实施的情况main对象以了解它到底如何将方法复制到Obj

  • std::less 枚举

    标准是否保证std less

  • 请求的操作失败 - Apache 错误

    当我尝试启动 Apache 2 2 服务器时 它显示以下消息 请求的操作失败 在命令提示符中显示如下 C Documents and Settings amth gt net start apache2 2 The Apache2 2 se

  • 防止 HTML 中 A 元素（锚链接）上的制表符停止

    是否可以取消 a href 避免在任何浏览器中被制表符阻止 我想在没有 JavaScript 的情况下做到这一点 一些浏览器支持tabindex 1 属性 但不是全部 因为这不是标准行为 a

  • 使用 IAsyncEnumerable 对另一个服务或 API 进行异步调用并批量返回响应

    我正在尝试创建一个 API 一旦准备好就返回结果 目标是 准备就绪后立即生成结果的 API 端点 消费应用程序调用端点并在数据准备好后立即处理数据 我的 API 调用另一个服务 HttpGet Route stream public asy

  • Salt 和 Python 的 YAML 语法

    这之间有什么区别 dic1 subdict1 1 value11 1 subdict1 2 value1 2 cubdict1 3 value1 3 和这个 dict2 subdict2 1 value2 2 subdict2 1 valu

  • 如何使用 Google Apps Docs 脚本将光标移动到文档的开头？

    我正在用我的 Google 文档编写 Google Apps 脚本的脚本 并想知道如何将光标移动到文档的开头 我最后想做的只是用一些字符串替换第一行 这个很简单 你可以使用setCursor method 记录在这里 https devel

  • 如何在Delphi中显示Vista风格的气球提示？

    在输入验证时 我使用气球提示而不是消息框 我的问题是 在 Vista 上 它们具有带圆角的旧 XP 样式 而不是较新的矩形外观 我尝试使用 CreateWindowEx 创建它们并且tooltips class32或使用 SendMessa

热门标签