在一个窗口中怎么定制快捷键？

Question

我想用按键F1、F2……来启动一些特别的命令，我在form的onkeypress()中写事件，像A,B,C……这些键可以响应，但是F1、F2……不行，不知道为什么。请教！

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    ShowMessage('F1 be pressed');
end;

Answer 2

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F2 then
    edit1.setfocus;
end;