PageUp、PageDown的问题。

Question

例如下面有一段程序，是判断按下去的键，那么如果判断是不是PageUp、PageDown键怎样写谢谢procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
   VK_DOWN : showmessage('你按下的是方向键DOWN ');
   VK_UP:showmessage('你按下的是方向UP!');
   VK_Left:showmessage('你按下的是方向LEFT');
   VK_Right: showmessage('你按下的是方向Right');
   vk_home: showmessage('你按下的是HOME键!');
   VK_End:showmessage('你按下的是End键!');
   VK_INSERT: showmessage('你按上的是INSERT');
   VK_DELETE: SHOWMESSAGE('你按下的是DELETE键');
 end;end;

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_PRIOR: Edit1.Text := 'Page Up';
    VK_NEXT: Edit1.Text := 'Page Down';
  end;
end;