vk_left , vk_right, vk_up, vk_down

解决方案 »

  1.   

    在 KEYDOWN事件中写
    if key = vk_left then .....
    if key = vk_right then....
    if key = vk_down then....
    ....
      

  2.   

    用虚拟键
      vk_left , vk_right, vk_up, vk_down 
      

  3.   

    当你按下键盘时,会产生OnKeyDown事件所以你在要处理的对象的OnKeyDown事件中写入:....
      Case key of
       vk_Left: do something;
       vk_Right: do something;
       vk_Up: do something;
       vk_Down: do something;
      end;
    ......成功的时候要给分啊!!!哈。。
      

  4.   

    上下键要在keydown up 中写;他识别键盘扫描吗,可以做个小测试。
      窗体中加入edit1和labelprocedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      label1.Caption := inttostr(key);
    end;可测出key 的值
    上:38
    下:40
    左:37
    右:39