[外观] Firemonkey Windows Hint 气球样式

Posted 2020-09-21 龟山Aone

Firemonkey 在 Windows 平台下的 Hint 默认为距形，有些单调，现在只要加入一行代码，就可以有气球箭头样式的 Hint。

 

修改代码：

请将 FMX.Controls.Win.pas 复制到自己的工程目录下，再修改如下代码：

constructor TWindowsHint.Create(const AHandle: TWindowHandle);

... 略 ...

    FToolTipHandle := CreateWindowEx(0, TOOLTIPS_CLASS, nil, WS_POPUP or TTS_ALWAYSTIP
{+++>} or TTS_BALLOON // 加入此行代码
       ,0, 0, 300, 300, FNativeControlHandle, 0, hInstance, nil);

... 略 ...

end;

 

修改前：

修改后：