[外观] 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;
修改前:
修改后:
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步