社区
Delphi
帖子详情
怎么检测系统当前是否按下CTRL键或按下CTRL+SHIFT组合键
aton
2002-04-27 11:37:57
如题
...全文
140
6
打赏
收藏
怎么检测系统当前是否按下CTRL键或按下CTRL+SHIFT组合键
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
luoshumeng
2002-04-28
打赏
举报
回复
同意楼上的!!!!!
yuefengzzh
2002-04-28
打赏
举报
回复
GetAsyncKeyState(VK_SHIFT)<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
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
语句;
Delphi
5,939
社区成员
262,944
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章