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

Question

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

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

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

Answer 1

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

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

下一位是 very non-obvious :

• 将控件的“Hint”属性设置为“Title|Hint|ImageIndex”

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

_{(来源:codegear.com)}，