1. 程式人生 > >[外觀] Firemonkey Windows Hint 氣球樣式

[外觀] Firemonkey Windows Hint 氣球樣式

.com log const monk 現在 too always spa pre

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;

修改前:

技術分享

修改後:

技術分享

[外觀] Firemonkey Windows Hint 氣球樣式