delphi - 创建自定义提示窗口

Question

我正在尝试找到一种方法来使用我的第二个表单作为我的第一个表单中的组件(例如 TLabel)的提示窗口。

目前，我正在探索 THintWindow 和 HintWindowClass 的使用，但无法直接将 TForm 分配给提示窗口类。到目前为止，我见过的一些示例使用 TBitmap ，然后在 THintWindow.Canvas 上绘制，这还不错，但我仍然想使用某种类型集成自动机构。

我想到的另一个解决方案是使用所述 Tlabel 的 OnMouseEnter、OnMouseMove 和 OnMouseLeave 事件手动实现此功能。

如果确实有一种方法可以将TForm“分配”给HintWindowClass，我想问问是否有人可以提供一个代码片段来说明这一点。谢谢。

Answer 1

THintWindow 是 TCustomControl 的后代。 TForm 不是这两个类的后代，因此您不能将任何 TForm 类分配给 HintWindowClass。提示窗口需要从THintWindow下降。任何可以放在表单上的内容也可以放在 THintWindow 上。您只需手动实例化它并分配其 Parent 属性即可使其显示。

最接近“视觉”设计提示窗口的方法是设计一个框架。让您的 THintWindow 后代创建框架的实例，然后覆盖 ActivateHint (和 ActivateHintData，如果您需要数据)以转发提示文本和所需的尺寸到您的框架。