vfp热键设置？

[s3056774]

表单的KeyPreview属性已设为.T.,表单的KeyPress事件代码如下：
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=24.And.nShiftAltCtrl=1 &&Shift+"X"
Thisform.Command1.Click()
Endif

怎么不行?

[s3056774]

以前我发过这个帖子，可是“Ctrl+X”可以，“Shift+X”就不行了，不知是怎么回事？

[都市夜猫]

你在表单的 keypress 事件代码中加一行：
messagebox(str(nKeyCode) + str(nShiftAltCtrl))
就知道错在哪里了

[s3056774]

谢谢