5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
nhdj 2003-08-21
- 打赏
- 举报
能不能给具体点，具体的例子，例如在窗体的keydown中判断abc同时按下
DWGZ 2003-08-18
- 打赏
- 举报
GetKeyState 反回的一个双字节的整数， $80就是用二进制表示就10000000 , if Ret and $80 = $80 then 就是判断最高位是不是1 ， GetKeyState的具体用法请参考Windows SDK帮助
nhdj 2003-08-18
- 打赏
- 举报
$80是什么意思？
DWGZ 2003-08-18
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
Ret: Shortint;
begin
Ret := GetKeyState(VK_SPACE);
if Ret and $80 = $80 then
ShowMessage('OK');
end;
var
Ret: Shortint;
begin
Ret := GetKeyState(VK_SPACE);
if Ret and $80 = $80 then
ShowMessage('OK');
end;
suuare 2003-08-18
- 打赏
- 举报
GetKeyState
试试！
试试！
lw549 2003-08-18
- 打赏
- 举报
GetKeyState
web700 2003-08-16
- 打赏
- 举报
UP
ollea 2003-08-16
- 打赏
- 举报
写个键盘的hook行不行
nhdj 2003-08-16
- 打赏
- 举报
好像不用结合就可以做到，以前做过只是忘记了
huojiehai 2003-08-16
- 打赏
- 举报
要Keydown和Keyup事件结合一起才能做到
