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

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

[编辑]：不,不是.我刚试过,一个带有菜单项的简单TForm显示加速器,但只要我添加TImageList并设置单个菜单项的ImageIndex,或者只是将ownerDraw设置为true,加速器下划线就会消失.我猜这真的是VCL中的一个错误.@H_197_3@

顺便说一句,这是在Windows XP上.@H_197_3@

解决方法：@H_197_3@

我在Windows XP 64上使用Delphi 2009对其进行了调试,并且缺少加速器的根本原因似乎是Windows发送带有ODS_NOACCEL标志的WM_DRAWITEM消息,如果系统设置为始终显示加速器,则不应该这样做.所以你可以说它不是VCL错误,而是VCL无法解决的Windows问题.@H_197_3@

但是,您可以在自己的代码中解决它,只需要在将消息传递给VCL之前重置标志.覆盖窗口过程@H_197_3@

protected
  procedure WndProc(var message: TmessagE); override;

像这样：@H_197_3@

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,@ShowAccel,0)
    then begin
      if ShowAccel then
        pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
    end;
  end;
  inherited;
end;

这只是演示代码,每次收到WM_DRAWITEM消息时都不应该调用SystemParametersInfo(),而是在程序启动时调用一次,然后每次程序收到WM_SETTinGCHANGE消息时调用.@H_197_3@