有没有办法用 FireMonkey 添加提示或工具提示？

我已经搜索过但找不到任何东西。有没有办法用 FireMonkey 添加提示或工具提示？是否有可用的组件可以实现此目的？

理想情况下，我正在寻找这样的东西（标注类型工具提示）：

对于搁置此问题的版主：我正在寻找有关如何实现此目标的源代码行，而不是购买/使用的软件。目前（据我所知）没有源代码组件可以执行此操作，因此不存在“固执己见的答案或垃圾邮件”的风险。

这就是我最终做到的：为按钮创建一个提示，如下所示：

向表单添加按钮。然后添加一个TPopup。将 CalloutPanel 放入其中，并可选择将对齐方式设置为 AlClient。在该 CalloutPanel 上放置一个 TLabel 并写入提示文本。

你的结构应该是这样的：

然后转到 TPopup 并将 PlacementTarget 设置为 Button1（您的按钮）。接下来，转到“放置”并选择“BottomCenter”：

接下来为按钮上的 MouseEnter 和 MouseLeave 事件添加处理程序：

procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
Popup1.IsOpen := True;
end;

procedure TForm1.Button1MouseLeave(Sender: TObject);
begin
Popup1.IsOpen := False;
end;

应该可以做到这一点。