[外觀] Firemonkey Windows Hint 氣球樣式

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;

 

修改前：

修改後：