分类： Lazarus

发布于

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许可协议的，这意味着它是开源的，免费的，如果你有需要，还可以修改其代码，当然，你一定要根据开源协议发布这些改变，当有人想使用你的改动时，你有义务提供那些改变后的源代码。

安装如下所示AnchorDocking和AnchorDockingDsgn后可以将分体式窗口变为一体式窗口，方便程序设计使用。