响应键的问题

borgvardt 2000-07-13 07:45:00
先声请label1 and label2
i:=0;
j:=0;
if key='g' then begin
label1.caption:=inttostr(i);
i:=i+1;
end;
if key='h' then begin
label2.caption:=inttostr(j);
j:=j+1;
end;

如何按住g,h不放,使label1 and label2 中的数字同时增加?
或者有别的办法使label1 and label2 中的数字同时增加?



...全文
114 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Hank 2000-07-17
  • 打赏
  • 举报
回复
原来的方法肯定不行,因为Key只能捕获单键或系统组合键!那必须用API函数GetKeyboardState(),而且要分类区分到底激活那几个键!
david_jts 2000-07-17
  • 打赏
  • 举报
回复
你可以用win32s API GetKeyboardState()获取那几个键按下.
pjy 2000-07-14
  • 打赏
  • 举报
回复
你怎样做是为什么?
gsoft 2000-07-14
  • 打赏
  • 举报
回复
你可以用两个线程,就可以同时变了
SuperMMX 2000-07-13
  • 打赏
  • 举报
回复
应该不能的.
先发送 WM_KEYDOWN 事件, 然后是 WM_CHAR,
如果一直按下去的话, 这两个事件交替,
直到 WM_KEYUP.
如果 中间按下另一个键, 则立即响应另一个键.

5,379

社区成员

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

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