Firemonkey 在 Windows 平台下的 Hint 默认为距形,有些单调,现在只要加入一行代码,就可以有气球箭头样式的 Hint。
请将 FMX.Controls.Win.pas复制到自己的工程目录下,再修改如下代码:
twindowsHint.(twindowHandle);
... 略 ...
FToolTipHandle :</span>= CreateWindowEx(<span style="color: #800080">0</span>,TOOLTIPS_CLASS,<span style="color: #0000ff">nil</span>,WS_POPUP <span style="color: #0000ff">or</span><span style="color: #000000"> TTS_ALWAYSTIP
<span style="color: #008000">{<span style="color: #008000">+++><span style="color: #008000">} <span style="color: #0000ff">or TTS_BALLOON <span style="color: #008000">//<span style="color: #008000"> 加入此行代码,<span style="color: #800080">0,<span style="color: #800080">300,FNativeControlHandle,hInstance,<span style="color: #0000ff">nil<span style="color: #000000">);
... 略 ...
<span style="color: #0000ff">end;
修改前:
修改后:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。