delphi - 菜单加速键未显示 (Delphi 2009)

Question

我已经尽力了，但无法弄清楚这里发生了什么。它在 Delphi 4 中运行良好。升级到 Delphi 2009 后，我不知道这是否是它应该工作的方式，或者是否存在问题:

这是我的程序菜单在 Delphi 2009 的设计模式下的样子:

请注意，主菜单和文件子菜单中的每个单词都有一个带下划线的字母。应该是这样的。这个带下划线的字母称为加速键，是 Windows 应用程序中的标准键，因此您可以使用 Alt 键和该字母通过键盘而不是鼠标快速选择菜单项和子菜单项。

您可以通过使用“&”字符作为项目标题的一部分来获取它们，例如:Save &As...

当我运行我的应用程序并使用鼠标打开"file"菜单时，它看起来像这样:

这些字符在主菜单中带有下划线，但在"file"菜单中没有下划线。

如果我使用 Alt-F 键打开"file"子菜单，那么它看起来是正确的，如下所示:

并且所有加速键字母都带有正确的下划线。

我使用过 AutoHotKeys 选项，但这不是问题。

以前有人遇到过这个问题吗？我不知道第二张图片中的示例是否正确？或者我可能错过了一些选项或编码错误？

<小时/>

2009 年 11 月(一年后):mghie 似乎已经找到了问题的根源并解决了问题。请参阅下面他接受的答案。

Answer 1

有一个标准的 Windows 设置(在显示属性下)通常会隐藏这些加速器，除非按住 Alt 键。这就解释了为什么使用 Alt+F10 打开菜单会显示它们。也许这就是原因？

[编辑]:不，不是。我刚刚尝试过，带有菜单项的简单 TForm 显示了加速器，但是一旦我添加 TImageList 并设置单个菜单项的 ImageIndex，或者简单地将 OwnerDraw 设置为 true，加速器下划线就会消失。我想这确实是 VCL 中的一个错误。

顺便说一句，这是在 Windows XP 上。

解决方法:

我已在 Windows XP 64 上使用 Delphi 2009 对此进行了调试，缺少加速器的根本原因似乎是 Windows 发送设置了 ODS_NOACCEL 标志的 WM_DRAWITEM 消息，如果系统设置为始终显示加速器，则不应出现此情况。所以你可以说这不是 VCL 错误，而是 VCL 无法解决的 Windows 问题。

但是，您可以在自己的代码中解决这个问题，只需在将消息传递给 VCL 之前重置标志即可。覆盖窗口过程

protected
  procedure WndProc(var Message: TMessage); override;

像这样:

procedure TYourForm.WndProc(var Message: TMessage);
const
  ODS_NOACCEL = $100;
var
  pDIS: PDrawItemStruct;
  ShowAccel: BOOL;
begin
  if (Message.Msg = WM_DRAWITEM) then begin
    pDIS := PDrawItemStruct(Message.LParam);
    if (pDIS^.CtlType = ODT_MENU)
      and SystemParametersInfo(SPI_GETKEYBOARDCUES, 0, @ShowAccel, 0)
    then begin
      if ShowAccel then
        pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
    end;
  end;
  inherited;
end;

这只是演示代码，您不应该在每次收到 WM_DRAWITEM 消息时调用 SystemParametersInfo()，而是在程序启动时调用一次，然后每次程序启动时调用 SystemParametersInfo()收到 WM_SETTINGCHANGE 消息。