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

前端之家收集整理的这篇文章主要介绍了delphi – 有没有办法用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;

应该这样做.

猜你在找的Delphi相关文章