L Liyue Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #1 我希望通过小键盘上的“上”、“下”、“左”、“右”四个键控制游戏的动作，<br>请问怎样获取上下左右四个键的KeyPress(Sender: TObject; var Key: Char)事件?<br>谢谢！！
我希望通过小键盘上的“上”、“下”、“左”、“右”四个键控制游戏的动作，<br>请问怎样获取上下左右四个键的KeyPress(Sender: TObject; var Key: Char)事件?<br>谢谢！！
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #2 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> case key of<br> VK_Left : <br> VK_Right : <br> VK_Up : <br> VK_Down :<br> end;<br>end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br> case key of<br> VK_Left : <br> VK_Right : <br> VK_Up : <br> VK_Down :<br> end;<br>end;
A amsea Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #3 VK_LEFT 25 LEFT ARROW key <br>VK_UP 26 UP ARROW key <br>VK_RIGHT 27 RIGHT ARROW key <br>VK_DOWN 28 DOWN ARROW key
VK_LEFT 25 LEFT ARROW key <br>VK_UP 26 UP ARROW key <br>VK_RIGHT 27 RIGHT ARROW key <br>VK_DOWN 28 DOWN ARROW key
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #4 使用KeyDown事件吧，上下左右箭头根本不会触发KeyPress事件的。<br>我实验了。
