我已经找到了,却找不到任何东西.有没有办法用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;
应该这样做.