菜单加速键未显示(Delphi 2009)
|
我尽我所能,无法弄清楚这里发生了什么.它在Delphi 4中运行良好.升级到Delphi 2009之后,我不知道这是否应该是它应该工作的方式,或者它是否是一个问题：
这是我的程序菜单在Delphi 2009下的设计模式中的样子： 请注意,主菜单和文件子菜单中的每个单词都有一个带下划线的字母.应该是这样的.这个带下划线的字母称为加速键,是Windows应用程序的标准字母,因此您可以使用Alt键和该字母快速选择菜单项,然后使用键盘而不是鼠标快速选择子菜单项. 你通过使用“&”来获得这种方式字符作为项目标题的一部分,例如：Save& As … 当我运行我的应用程序,并使用鼠标打开文件菜单时,它看起来像这样： 主菜单中的字符带下划线,但“文件”菜单中没有下划线. 相反,我使用Alt-F键打开文件子菜单,然后看起来像这样： 并且所有Accelerator Key字母都有正确的下划线. 我玩过AutoHotKeys选项,但这不是问题. 以前有人遇到过这个问题吗？第二个图像中的示例是否是我不知道的正确行为？或者是否有一些我可能错过的选项或编码错误？ 2009年11月(一年后)：mghie似乎已经找到了根源,并找出了问题所在.请参阅下面接受的答案. 解决方法
除非按下Alt键,否则有一个标准的Windows设置(在显示属性下)通常隐藏这些加速器.这就解释了为什么用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,@ShowAccel,0)
then begin
if ShowAccel then
pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
end;
end;
inherited;
end;
这只是演示代码,每次收到WM_DRAWITEM消息时都不应该调用SystemParametersInfo(),而是在程序启动时调用一次,然后每次程序收到WM_SETTINGCHANGE消息时调用. （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |