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本身.