我可以在Delphi 2中放大菜单字体大小吗？

Question

我发现的一切都说我不能用Delphi 2的TMainMenu做到这一点，但是如果有人在这里以某种方式管理它，我真的很想知道这个伎俩。我找到了更改系统菜单字体大小的代码，但没有一个代码将更改限制在仅应用程序中。这里的任何人都知道如何做到这一点，或者我必须接受今天大屏幕显示器上出现的Delphi 2小菜单字体大小？ （将应用程序移动到升级的Delphi不是我需要的答案; - ）

Answer 1

实现每个应用程序自定义菜单字体的唯一方法是使用所有者绘制的菜单。 Delphi 2 不直接在 TMainMenu 组件的VCL属性中支持所有者绘制的菜单项。此支持仅在 Delphi 4 中引入。

您仍然可以实现所有者绘制的菜单，但它将涉及使用标准Windows API技术实现它们，并在拥有所涉及菜单的表单上处理所需的消息。这并不是特别困难，但不像Delphi 4及更高版本中基于事件的实现那么简单。

您仍然可以使用 TMainMenu 来定义菜单，但在应用程序中，您需要以编程方式在菜单项上设置所有者绘制标记并适当处理生成的消息。这样做，您将需要处理绘制菜单的所有方面 - 您不能简单地设置/更改字体并让系统绘制菜单项。您可能还需要为已设置的任何键盘快捷键提供额外的处理。

如果这是一种可行的方法，那么有关在API级can be found here实施所有者绘制菜单的信息。