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