delphi - 如何为特定控件创建自己的自定义提示？

Question

我需要为特定控件(而不是整个应用程序)创建自定义提示窗口(具有自己的颜色和布局)

提示文本本身不会连接到特定的 Hint 属性控件。

按照建议，我为 CM_HINTSHOW 编写了一个处理程序(如果控件具有 ShowHint=True，则此方法有效):

procedure TMyControl.CMHintShow(var Message: TMessage);
begin
  Form1.caption := 'x';
  // Here I will display my own Hint window 
  // inherited;
end;

但是现在，当提示超时时，我如何知道何时/何地隐藏它？ CM_HINTSHOW 或 CM_HINTSHOWPAUSE 都没有给我这个信息。

Answer 1

在您的CM_HINTSHOW 消息处理程序中，您可以将lParam 值转换为PHintInfo 指针，然后根据需要自定义其字段。例如，要简单地更改背景颜色，请设置 THintInfo.HintColor 字段。要更改提示的布局，您可以从 THintWindow 派生一个新类，并将该类类型分配给 THintInfo.HintWindowClass 字段。

让 VCL 为您管理提示，包括显示和隐藏它。