Delphi menus seem to always have fonts that go back to default (8, Tahoma) The problem，Questions from abroad，but no solution。The temporary solution I can think of at the moment is to set a function key (Can be set as hotkey)，Let user encounter small font size，Reset font size by yourself。(During testing, the menu font can be changed back to the default value by changing the Windows display size percentage)
procedure Tmainform.N93Click(Sender: TObject); begin Screen.MenuFont.Size := 12; xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。 end;
【參考連結】
- Delphi VCL force menu repaint – Stack Overflow
- once in a while: Delphi MainMenu font enlargement and Menu Checked prompt icon missing solution
