怎么检测系统当前是否按下CTRL键或按下CTRL+SHIFT组合键

aton 2002-04-27 11:37:57
如题
...全文
102 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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
语句;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧