Lazarus键盘控制小游戏（Keypress），附程序源代码

程序说明

• 组件：image
• Form的事件：onkeypress
• 控制原理：对键盘录入的内容进行Case of判断，如果是WASD,则对Image的Tope及Left值进行修改。

程序界面

KeyPress事件代码

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
 begin
   case key of
     'W','w' :  face.Top:=face.Top-3; 
     'S','s' :  face.Top:=face.Top+3;
     'A','a' :  face.Left:=face.Left-3;
     'D','d' :  face.Left:=face.Left+3;
   end;
 end;      

程序源代码

附件下载：键盘控制小游戏源代码 (百度云)

提取码: k5wu