Delphi 選單似乎一直都有字型會變回預設值 (8, Tahoma) 的問題,國外有人提問,但沒有解決方式。目前我能想到的暫時解法是設定一個功能鍵 (可設為熱鍵),讓 user 遇到字型變小時,自行重置字型大小。(測試過程可透過變更 Windows 顯示大小百分比來讓選單字型變回預設值)
procedure Tmainform.N93Click(Sender: TObject); begin Screen.MenuFont.Size := 12; xxxxxx.BringToFront; // 改變畫面焦點,以刷新選單畫面。 end;
【參考連結】
- Delphi VCL force menu repaint – Stack Overflow
- 久久來一次: Delphi MainMenu 字型放大及Menu Checked 提示圖示不見解決方法