如何更改Delphi中mainmenu项的fontsize？

Question

有人会认为MainMenu会有一个Font属性，因为只有其他一个属性，例如按钮，标签等

Answer 1

例如，

编写

procedure TForm2.FormCreate(Sender: TObject);
begin
  Screen.MenuFont.Name := 'Arial Black';
end;

并确保OwnerDraw的{​​{1}}属性设置为TMainMenu。

Answer 2

查看TScreen.MenuFont属性。