如何在 Delphi 上使用 Application.ActivateHint 显示提示？

Question

我有以下代码试图显示提示：

procedure TMyGrid.OnGridMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  aPoint: TPoint;
begin
  inherited;
  //Application.Hint := 'Hint Text';
  //Application.ShowHint := True;
  Grid.Hint := 'Hint Text';
  Grid.ShowHint := True;
  aPoint.X := X;
  aPoint.Y := Y;
  Application.ActivateHint(aPoint);
end;

但是没有出现任何提示。怎么了？

Answer 1

ActivateHint 想要您的点在屏幕坐标中，而不是在客户端坐标中。

来自文档：

ActivateHint 将控件或菜单​​项定位在 CursorPos 指定的位置，其中 CursorPos 表示屏幕坐标，以像素为单位。找到控件后，ActivateHint 会在提示窗口中显示控件的 Hint。

所以，你必须像这样改变你的方法：

procedure TMyGrid.OnGridMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  aPoint: TPoint;
begin
  inherited;
  //Application.Hint := 'Hint Text';
  Grid.Hint := 'Hint Text';
  Grid.ShowHint := True;
  aPoint.X := X;
  aPoint.Y := Y;
  aPoint := ClientToScreen(aPoint);
  Application.ActivateHint(aPoint);
end;

Answer 2

与其试图强制TApplication 在您的网格控件的OnMouseMove 事件中显示新提示，正确的方法是让您的网格处理CM_HINTSHOW 消息以自定义当前提示，只要它正常显示.

CM_HINTSHOW 消息在其LPARAM 值中为您提供了指向THintInfo 记录的指针。 THintInfo 有一个 CursorPos 成员，它告诉您当前鼠标在控件的客户区内的位置，还有一个 CursorRect 成员，它允许您在控件的客户区内定义一个矩形，当前提示应该对其有效（@ 987654332@ 有其他成员用于进一步自定义提示，例如文本、颜色、窗口类、显示/隐藏超时等）。当鼠标移出该矩形但仍在控件的客户区域内时，将再次生成CM_HINTSHOW 消息以获取新信息以更新当前提示。

如果您需要在每次鼠标移动时更新提示，您可以定义一个只包含当前CursorPos 的自定义CursorRect，例如：

type
  TMyGrid = class(...)
  private
    procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
  end;

procedure TMyGrid.CMHintShow(var Message: TCMHintShow);
begin
  with Message.HintInfo^ do
  begin
    HintStr := Format('Hint Text (%d,%d)', [CursorPos.X, CursorPos.Y]);
    CursorRect := Rect(CursorPos.X, CursorPos.Y, CursorPos.X, CursorPos.Y);
  end;
end;