我在form的keydown事件里写了东西,但是当我运行程序的时候好像没有起作用,哪位大侠知道是什么原因吗??
procedure TfrmBase.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F4 then showmessage('F4');
end;