delphi - 如何在非事件表单上显示提示

Question

我想在鼠标移动时显示提示，就像在 Winamp 中一样。无需专注于应用程序。感谢帮助。

Answer 1

您可以弹出提示，但如果应用程序不是重点应用程序，我不确定您是否可以这样做。

这将显示设置了提示且 ShowHint = True 的任何内容的提示。但前提是它是焦点应用程序。 (正如 Sertac Akyuz 在对原始帖子的评论中所说，VCL 仅对当前事件的表单执行此操作)。

procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  aPoint: TPoint;
  aControl: TControl;
begin

  aControl := TControl(Sender);
  if aControl.ShowHint = true then
  begin
    aPoint.X := X;
    aPoint.Y := Y;

    if Assigned(aControl.Parent) then
      aPoint := aControl.ClientToParent(aPoint);
    aPoint := ClientToScreen(aPoint);

    Application.ActivateHint(aPoint);
  end;
end;

希望这可以帮助。