如何在Delphi中更改主菜单项的字体大小？

Question

有人会认为MainMenu应该有一个字体属性，因为几乎所有其他元素（如按钮、标签等）都有字体属性。

- DoctorBean

---

尽管Remy和Andreas已经给出了答案，但你应该知道菜单字体是用户配置选项。它应该由用户设置，这也是默认情况下发生的——VCL读取用户在“显示属性”->“外观”->“高级外观”中设置的值，并将其用于菜单字体大小和名称。 - Ken White

通常情况下我不会去改变这个，但是对于宽屏幕显示器上的标准菜单字体来说，有时候会显得有点小，特别是在一些第三方应用程序中。在我的应用程序中也是一样的，因为它正在被皮肤化，菜单字体大小可能对某些人来说有点小。 - DoctorBean

Answer 1

比如说，写一个

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

并确保您的TMainMenu的OwnerDraw属性设置为true。

- Andreas Rejbrand

---

非常感谢。下次我会用谷歌屏幕（Screen）代替 TScreen。 - DoctorBean

Answer 2

请查看 TScreen.MenuFont 属性。

- Remy Lebeau

---

谢谢。抱歉我的知识有限，但我该如何使用它呢？我已经搜索过了，没有例子，只有你的说明。提前致谢。 - DoctorBean

TScreen.MenuFont属性是一个TFont。您可以像设置任何其他字体属性一样在运行时设置它的属性，例如：Screen.MenuFont.Size := ...; - Remy Lebeau

谢谢。我想我应该尝试谷歌搜索Screen而不是TSCreen。 - DoctorBean

与RTL一起工作效果不佳。 - Marwan Almukh