DELPHI怎么注册窗体热键

DELPHI如何注册窗体热键？
比如我想注册窗体热键F4（不是全局热键），仅在活动窗口时才有效。如果注册？
我用shortcut注册的话，发现按下热键会出现2次效果，难道是DELPHI的BUG么？求解谢谢
请给出代码

[解决办法]
设置form.keypreview:=true;
然后在formKeyPress事件,写上你的代码
if key=vk_f4 then
...
[解决办法]

Delphi(Pascal) code

keypreview:=true;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = VK_F4 then  ......end;
[解决办法]
楼主，请查看一下这个帖子

http://topic.csdn.net/u/20120525/17/47353b38-582c-4f99-b1ac-951317057fa0.html

#2楼

希望这个能帮到你的，
功能是可以任意定义“F1至F12”内任意一个值，可以马上生效的