我发现的一切都说我不能用Delphi 2的TMainMenu做到这一点,但是如果有人在这里管理它,我真的很想知道这个伎俩.我找到了更改系统菜单字体大小的代码,但没有一个代码将更改限制在仅应用程序中.这里的任何人都知道如何做到这一点,或者我必须接受今天的大屏幕显示器上出现的Delphi 2的微小菜单字体大小？(将应用程序移动到升级的Delphi不是我需要的答案;-)
实现每个应用程序自定义菜单字体的唯一方法是使用所有者绘制菜单. Delphi 2不直接在TMainMenu组件的VCL属性中支持所有者绘制的菜单项.这种支持仅在Delphi 4中引入.
您仍然可以实现所有者绘制的菜单,但它将涉及使用标准Windows API技术实现它们,并在拥有所涉及菜单的表单上处理所需的消息.这并不是特别困难,但不如Delphi 4及更高版本中基于事件的实现那么简单.
您仍然可以使用TMainMenu来定义菜单,但在应用程序中,您需要以编程方式在菜单项上设置所有者绘制标记并适当地处理生成的消息.这样做,您将需要处理绘制菜单的所有方面 - 您不能简单地设置/更改字体并让系统绘制菜单项.您可能还需要为已设置的任何键盘快捷键提供额外的处理.
如果这是一种可行的方法,那么可以在此处找到有关在 API级别实现所有者绘制菜单的信息.