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

作者: 洛水之滨

天行健,君子以自强不息; 地势坤,君子以厚德载物。