Delphi – Shift Ctrl 0组合Windows Vista上的应用程序看不到

发布时间：2020-12-15 03:56:09 所属栏目：大数据来源：网络整理

导读：我从一个新的Delphi VCL应用程序开始,将menus添加到uses子句中,在表单上放置一个标签,并分配表单的OnShortCut事件： procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);begin Label1.Caption := ShortCutToText(ShortCut(Msg.CharCode,

我从一个新的Delphi VCL应用程序开始,将menus添加到uses子句中,在表单上放置一个标签,并分配表单的OnShortCut事件：

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  Label1.Caption := ShortCutToText(ShortCut(Msg.CharCode,KeyDataToShiftState(Msg.KeyData)));
end;

在XP上,对于我所尝试的所有快捷键组合(包括Shift Ctrl 0),该功能正常工作.在Vista和Windows 7上,测试应用程序通过Shift Ctrl 9显示Shift Ctrl 1,但不显示Shift Ctrl 0.其他组合如Shift 0,Ctrl 0,甚至Shift Ctrl Alt 0都显示正常.

在调试器下运行应用程序,我发现如果在按下0键的同时按住Shift和Ctrl键,OnShortCut事件永远不会被Msg.CharCode = Ord(‘0’)触发.

Delphi IDE在Vista下有同样的问题. Ctrl Shift 1设置书签1,但是Ctrl Shift 0不设置书签0,它应该是书签.

我已经使用Delphi 2007和2010在VMware的Windows Vista和7的处理器安装上进行了测试,所以没有第三方软件捕获密钥.我没有尝试任何其他开发工具来确定问题是与Delphi还是Vista本身.

解决方法

Shift Ctrl 0在Vista中被预先分配给输入法编辑器(IME)：

http://support.microsoft.com/kb/967893

这将解决您的问题,但会影响IME的用户(大多是亚洲版本),因此您应该考虑不要使用此快捷方式.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!