在delphi中怎样实现响应键盘事件

Question

在delphi中怎样实现响应键盘事件，如按下空格键，程序停止运行。最好多举两个例子。

Answer 1

在Form的OnKeyDown判断Key = VK_SPACE就可以了。

Answer 2

那你可以在一个统一的处理函数中进行
if foucscontrols is  xxxx and  Key = VK_SPACE
exit
then
...

Answer 3

在OnKeyDown事件中判断
IF KEY=#20 THEN
........ 这样就可以啦。

Answer 4

procedure TForm1.WMHotKey (var Msg : Tmessage);
begin
{Ctlt+F1键被按下}
if (msg.LParamHi=112 ) and (msg.lparamlo=MOD_CONTROL ) then
begin
  showmessage('Ctlt+F1键被按下');
end;
end;

Answer 5

在OnKeyDown事件中判断就可以了

Answer 6

在控件的 ONKeydown  事件添加如下代码:if ((key = VK_LEFT) or (key =VK_RIGHT) or (key =VK_DOWN) or (key =VK_UP ))  then
   showmessage('你按了方向键!);