delphi - 调整 TMainMenu 的大小

Question

我对编程比较陌生，我的问题是表单上的 TMainMenu。我研究了很多
(很多)网站来寻找解决方案，但没有找到任何可以解决这个问题的网站。
即使我使用 Screen.MenuFont.Size 更改字体大小，主菜单也不会调整大小。
我尝试在 Height 中设置 Height 属性>OnMeasureItem 处理程序，我尝试在设计和运行时调整图像和子菜单的大小，我什至 try catch Windows 的消息 WMDrawItem 并在传递它之前更改它的参数...

组件中的菜单项会相应调整大小，但菜单栏本身的垂直高度不会相应调整。 (下图中看到的线穿过图标)

是否有一个简单的解决方案，例如在某处设置一些隐藏良好的高度属性？
还是我必须重写一半的delphi代码才能达到我的目标？
感谢有关代码示例的帮助。 :-)

这是一张图片:

我在 Win7 机器上使用 Delphi 7。

Answer 1

菜单栏的高度是 Windows 公制设置。因此，它在整个系统范围内有效 - 不仅适用于您的应用程序。如果有的话，也只能通过 Windows 本身的显示设置进行更改。