游戲介紹

繼續學習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控件的综合应用）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。