Question

delphi中 keyDown事件下代码为 if key=39 then showmessage('按下了右键'); 想要做在keypress事件中怎么写

试过 if key=#39 then showmessage('按下了右键'); 不行

Answer 1

OnKeyPress 和 OnKeyDown 两种事件的原型定义如下：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

从定义看，两种事件的 Key 参数名称相同，但数据类型是不一样的：Char 和 Word。

简单点说，这两种不同的数据类型说明：

OnKeyPress 传递的参数是字符，而 OnKeyDown 是键值。

OnKeyPress 接受的 Key 参数是字符值（简单点说，就是接受 ASCII 码表中的值，但通常是字母、数字等），而 OnKeyDown 可以接受 Key 参数是键盘按键的值（除了少数键，大部分键都能触发事件）。

OnKeyPress 事件，对于 键盘的 右方向键(→)：VK_RIGHT (码值39)，并不能被触发。

可编写代码通过测试观察：

当按下字母 a 时，先触发 KeyDown 事件，再触发 KeyPress 事件；而如果按 右方向右方向键(→)，则只触发了 KeyDown 事件：

KeyDown 中，Key 值是 65（大写字母 a 的 ASCII 码） ，而 KeyPress 中是 97（小写字母 a 的 ASCII 码），可以看出：

KeyDown 并不能由 Key 来区别开大小写字母的区别，而 KeyPress 可以。

KeyPress 不能检测到 CapsLock（大写字母锁定）、Shift、Ctrl 等键，而 KeyDown 可以。

Answer 2

在KeyPress中只能检测到数字和字符，是不能用来检查方向键的，只能放到keyDown或者KEYUP里。

追问

因为我这个问题是想解决工作上的一个问题 ，它代码里在keypress事件里写了一个公用的函数，这个函数视对按下空格之后进行处理的。我现在业务上需要做到按下方向右等于按下空格键，有什么办法吗？

Answer 3

定义一个全局变量作为开关，在 keyDown 中赋值，在 keypress 引用并复位。

追问

大哥，本人菜鸟啊。 能不能劳烦敲敲键盘，详细解释一下呢

追答

var
rrd: Boolean;

...
rrd := False;

...keyDown...
rrd := True;

...keypress...
if rrd = True then begin

// do something

rrd := False;

end;

...

Answer 4

KeyPress 事件不接受 “右键”，“左键”，“上键”，“下键”，“Home"，”End“，”PageUp“，”PageDown“

Answer 5

if key=39 then key = 32