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

Lazarus一个开源的跨平台FreePasscal集成开发环境

Lazarus

集成开发环境

Lazarus是一个用于FreePascal的快速应用开发(RAD)的面向对象的FreePascal集成开发环境(IDE),不仅可以编译运行简单的pascal程序,还有很强的窗体处理功能,界面清晰,操作简单方便。

跨平台

Lazarus是一个基于Free Pascal的Delphi仿制品。Free Pascal是Linux、Win32、WinCE、Mac OS、OS/2、68K等操作系统下的一个基于GPL/LGPL的编译器,她被设计成可以理解,并编译OOP的Delphi语法。Lazarus在上述平台下可以像 Delphi一样来开发程序,打破了这些环境下缺少可视化开发工具的困窘局面。不像Java致力于“一次编写,到处运行”,Lazarus和Free Pascal则致力于“一次编写,到处编译”。由于对上述所有平台有完全相同的编译器,这意味着你不需要重新编码,就可以为不同的平台开发相同的产品。 Java基于虚拟机,Lazarus则产生原生代码,所以Lazarus的应用程序在效率上应该比用Java的程序更快一些。

免费开源

Free Pascal编译器是基于GPL/LGPL许可协议的,这意味着它是开源的,免费的,如果你有需要,还可以修改其代码,当然,你一定要根据开源协议发布这些改变,当有人想使用你的改动时,你有义务提供那些改变后的源代码。