请问：如何获取按键是否按下？

[radeonse]

我用getkeystate为什么不能通过编译啊？
有没有其他函数直接判断按键是否按下的？

谢谢！

[fbysss]

getkeystate(VK_SHIFT) ;
这个函数在windows单元中。

[fbysss]

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

var i ,j,k:word;
begin
i := GetKeyState(VK_LSHIFT);
j := GetKeyState(VK_RSHIFT);
k := GetKeyState(VK_SHIFT);
if (( i and $80)<>0) then
begin
showmessage('left shift key has down.');
end
else if (( j and $80)<>0) then
begin
showmessage('Right shift key has down.');
end;

if (( k and $80)<>0) then
begin
showmessage('shift key has down.');
end;

end;

[beyondtkl]

怎么可能不能编译。。。

[ypyRock]

报什么错误？可能是你函数没有声明

[fivehun]

不明白你要实现什么功能？在onKeyPress事件下写如下就可判断键是否按下，一般用来做输入的验证。
if not (key in ['0'..'9','.',#8,#13]) then key:=#0;

[hotboy1000]

使用控件的onkeydown onkeypress onkeyup 都可以捕捉按键的状态。

[radeonse]

我是需要在一个mouseup中获取按键是否按下

getkeystate(vk_lshift)的返回值是多少的时候表明shift被按下？