老森常谈 IT 帮助

The Delphi menu font seems to always revert to the default (8, Tahoma) Issue，Someone abroad asked about it，But there's no solution。For now, the temporary solution I can think of is to set up a function key (Can be set as a hotkey)，So that when the user encounters the font becoming small，They can manually reset the font size。(During testing, changing the Windows display scaling percentage can make the menu font revert to the default)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【参考链接】

• Delphi VCL 强制菜单重绘 – Stack Overflow
• 久久一次: Delphi MainMenu 字体放大及菜单选中提示图标消失的解决方法

---

与本文类似的主题：

• Delphi – 设置 Ctrl+F5 热键
• Delphi – 时间相减
• 修改 Windows 10 登录背景图片
• 让Firefox下载BT时不再出现乱码
• Success