delphi实现数字的倒计时

2016-08-22 10:17:01来源:http://wiliiwin.blog.51cto.com/928128/206492作者:wiliiwin人点击


今天学习delphi的时候,看到有一个题是写一个数字的倒计时程序,于是就动手试了下,完成了数字倒计时的功能,具体的代码如下:



unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) tmr1: TTimer; lbl1: TLabel; Button1: TButton; procedure tmr1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation vari:Integer; {$R *.dfm} procedure TForm1.tmr1Timer(Sender: TObject); begin Lbl1.Caption:=IntToStr(i); Dec(i); if i < 0 then tmr1.Enabled:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin i:=10000; tmr1.Enabled:=True; end; end.

一个很简单的程序而已,添加了一个timer组建,然后利用了一些语句就实现了这个功能.

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台