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;
修改前:
修改后: