Old Sen's Tales IT Help

Delphi menus always seem to revert to the default font (8, Tahoma) problem，Some users abroad have asked about this，but there is no solution。Currently, the temporary workaround I can think of is to set up a function key (which can be used as a hotkey)，so that when users encounter a smaller font,，they can manually reset the font size。(During testing, changing the Windows display scaling percentage can make the menu font revert to the default size)

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

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• Once in a long while: How to enlarge Delphi MainMenu font and fix missing Menu Checked icons

---

Similar topics to this article：

• Delphi – Set Ctrl+F5 hotkey
• Delphi – Subtracting time
• 修改 Windows 10 登入背景圖片
• Prevent Firefox from turning BT downloads into garbled text
• Success