5,935
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
luoshumeng 2002-04-28
- 打赏
- 举报
同意楼上的！！！！！
yuefengzzh 2002-04-28
- 打赏
- 举报
GetAsyncKeyState(VK_SHIFT)<0
GetAsyncKeyState(VK_CONTROL)<0
这个可以的
GetAsyncKeyState(VK_CONTROL)<0
这个可以的
Kuye2002yx 2002-04-28
- 打赏
- 举报
想问一下，Ctrl + Shift 是切换输入法的，你要那个干吗？？？
smelless 2002-04-28
- 打赏
- 举报
钩子，不过钩不好，你的系统就~!@#$%^&*了，赫赫~~~
jishiping 2002-04-27
- 打赏
- 举报
GetAsyncKeyState(VK_SHIFT)<0
GetAsyncKeyState(VK_CONTROL)<0
GetAsyncKeyState(VK_CONTROL)<0
wg007 2002-04-27
- 打赏
- 举报
在OnKeyDown事件中有此定义Shift: TShiftState
只要判断Shift等于[ssAlt] ，[ssCtrl] ， [ssShift]中的其中一个就行了。
例：判断CTRL键按下:
if Shift=[ssCtrl] then
语句；
判断Ctrl+SHift+F1按下:
if (Shift=([ssCtrl]+[ssShift])) and (Key=VK_F1) then
语句；
只要判断Shift等于[ssAlt] ，[ssCtrl] ， [ssShift]中的其中一个就行了。
例：判断CTRL键按下:
if Shift=[ssCtrl] then
语句；
判断Ctrl+SHift+F1按下:
if (Shift=([ssCtrl]+[ssShift])) and (Key=VK_F1) then
语句；
