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

发布时间：2020-12-15 04:33:52 所属栏目：大数据来源：网络整理

导读：我已经找到了,却找不到任何东西.有没有办法用FireMonkey添加提示或工具提示？是否有可用于此的组件？理想情况下,我正在寻找这样的东西(标注类型工具提示)：对于暂时搁置此问题的版主：我正在寻找关于如何实现此问题的源代码行,而不是购买/使用的软件.目前

我已经找到了,却找不到任何东西.有没有办法用FireMonkey添加提示或工具提示？是否有可用于此的组件？

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

对于暂时搁置此问题的版主：我正在寻找关于如何实现此问题的源代码行,而不是购买/使用的软件.目前有(AFAIK)没有源代码组件可以实现这一点,因此不存在“自以为是的观点或垃圾邮件”的风险.

解决方法

这就是我最终做到的方法：为Button创建一个如下所示的提示：

在表单中添加一个按钮.然后添加一个TPopup.在其中放置一个CalloutPanel,并可选择将对齐设置为AlClient.在该CalloutPanel上删除一个TLabel并写下你的提示文本.

您的结构应如下所示：

然后转到TPopup并将PlacementTarget设置为Button1(您的按钮).接下来,转到Placement并选择BottomCenter：

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

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

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

应该这样做.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!