游戏介绍

继续学习delphi ，今天学习delphi一些常用控件的学习。今天通过龟兔赛跑小程序的编写对Timer、Button、Editor 等控件的学习 对Delphi的相关语法进行学习。

用户可以自定义 乌龟和兔子的速度，游戏可以中途暂停，比赛完毕可以重新开始比赛。

效果展示

核心代码

//游戏开始
procedure TForm1.judgeClick(Sender: TObject);
begintimer1.Interval := 100;
end;//时钟执行代码
procedure TForm1.Timer1Timer(Sender: TObject);
beginif (tortoise.Left <= 800) and (rabbit.Left <=800) thenbegin                               //获取用户输入的速度tortoise.Left := tortoise.Left +  StrToIntDef(t_speed.Text,0) ;rabbit.Left := rabbit.Left + StrToIntDef(r_speed.Text,0);endelsetimer1.Interval := 0;end;
//游戏重置
procedure TForm1.resetClick(Sender: TObject);
begintortoise.Left := 80;rabbit.Left := 80;
end;
//游戏暂停单击事件
procedure TForm1.stopClick(Sender: TObject);
begintimer1.Interval := 0;
end;end.

Delphi：龟兔赛跑游戏（Timer、Button、Editor控件的综合应用）相关推荐

Delphi XE2 之 FireMonkey 入门(35) - 控件基础: TFmxObject: 其它
Delphi XE2 之 FireMonkey 入门(35) - 控件基础: TFmxObject: 其它 TFmxObject 增加了 TagObject.TagFloat.TagString, 算 ...
在Delphi程序中应用IE浏览器控件
---- 大概大家还记得Delphi的范例程序中的那个浏览器的例子吧.在那个例子中,利用控件THttp的属性和方法制作了一个浏览器.该例子用于理解THttp控件的使用方法,确实不错.但很少有人会用它作 ...
delphi中利用Indy的TIdFtp控件实现FTP协议
2019独角兽企业重金招聘Python工程师标准>>> delphi中利用Indy的TIdFtp控件实现FTP协议版权声明:本文为博主原创文章,未经博主允许不得转载.现在很多应用都需 ...
学习笔记（五）——数据适配器、数据表、数据网格视图控件的综合应用。
学习笔记(五)--数据适配器.数据表.数据网格视图控件的综合应用. 1. 批量修改修改包括增加,删除以及更新3个操作,所以声明实力化3个SQL命令分别应用于插入,删除以及修改将声明的SQL命令连 ...
WPF编游戏系列之四用户控件
在上一篇<WPF编游戏系列之三物品清单>中,对物品清单进行了演示,其中反复用到了同一组控件(如下图),而且颜昌钢也指出在3.2.2中使用的C#代码过多,其实我在写这些代码时也有同感, ...
tkinter中button按钮控件（三）
button控件简单的实现: 1 import tkinter 2 3 wuya = tkinter.Tk() 4 wuya.title("wuya") 5 wuya.geome ...
从控件开发的角度看几个editor控件,Freetextbox,radtoolbar,abouteditor,cuteeditor
今天控件的开发有了很大进展,写些东西.在开发之前,我看了几个控件的源代码,如Freetextbox,radtoolbr,abouteditor以及cuteeditor.今天凭会议总结一下他们的特点,能 ...
asp.net button创建控件时出错_Tkinter Radiobutton控件
单选按钮是一种可在多个预先定义的选项中选择出一项的 Tkinter 控件 .单选按钮可显示文字或图片,显示文字时只能使用预设字体,该控件可以绑定一个 Python 函数或方法,当单选按钮被选择时, ...
Android4.4 及以下TextView，Button等控件使用矢量图报错
1 问题描述最近项目开发中,图标资源我尽量使用了矢量图,然而配置了基本的兼容设置,程序在低版本中运行还是出现了问题. xml布局文件中,在TextView中使用矢量图,比如android:drawa ...

Delphi：龟兔赛跑游戏（Timer、Button、Editor控件的综合应用）

游戏介绍

效果展示

核心代码

Delphi：龟兔赛跑游戏（Timer、Button、Editor控件的综合应用）相关推荐

最新文章

热门文章