请教几个键盘响应的问题

[sp5guy]

请问：
1。当用户在键盘上输入F1,F2,.....F12时，执行对应程序。这样的代码如何写？例如在
procedure form1.onshow();
begin
if 按下F1 then
do...........
end;

2。为何在
procedure form1.button1onpresskey(sender:Tobject,var key);
begin
if ord(key)=13 then //按下回车键
........
程序没反应？而在edit的onpresskey事件中写如上代码是有用的?


3.当回车按下时edit1执行相应的程序，要实现这样的功能有几种方法？

[NightCloud]

1.d6上，设置form得keypreview属性为true，然后在form的keydown事件里判断用户按下那个键即可
case key of
VK_F1: ...;
VK_F2: ...;
...
END;

2.在keydown事件里头写试试看
if key=vk_return then
....

[数字蛋糕]

使用ActionList，把每个Action的热键设为你要的就行了。

[dawnming]

1.d6上，设置form得keypreview属性为true，然后在form的keydown事件里判断用户按下那个键即可
case key of
VK_F1: ...;
VK_F2: ...;
...
END;

2.在keydown事件里头写试试看
if key=vk_return then
....

同意

[sp5guy]

我试过楼上的代码了，出现问题如下：
form1.onpresskeydown(sender:Tobject;var key:char);
这里的key默认是字符型的，而vf_f1,vf_f2.......都是整型的，编译运行实提示类型不匹配，如何是好？

[NightCloud]

是在onkeydown时间里写，不是在onkeypress时间里写!
OnKeyDown的定义
TWinControl.OnKeyDown
Occurs when a user presses any key while the control has focus.
type
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
property OnKeyDown: TKeyEvent;

OnKeyPress的定义
TWinControl.OnKeyPress
Occurs when key pressed.
type TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object;
property OnKeyPress: TKeyPressEvent;

另:有onpresskeydown(sender:Tobject;var key:char);这样的定义吗