Кажется, что в меню Delphi всегда используются шрифты, которые возвращаются к значениям по умолчанию. (8, Тахома) Проблема，Вопросы из-за границы，но нет решения。Временное решение, о котором я могу думать на данный момент, - установить функциональную клавишу (Можно установить как горячую клавишу)，Пусть пользователь сталкивается с маленьким размером шрифта，Сбросить размер шрифта самостоятельно。(Во время тестирования шрифт меню можно вернуть к значению по умолчанию, изменив процент размера экрана Windows.)
procedure Tmainform.N93Click(Sender: TObject); begin Screen.MenuFont.Size := 12; xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。 end;
【參考連結】
