Question

delphi怎么做倒计时器,代码是怎么写

用什么控件？能说详细点么？

Answer 1

说明:
1.建立一个新的Project
2.在Form上放一个TLabel 和 TTimer
3.定义Form的Create事件和TTimer的OnTimer事件,拷贝相应的处理程序即可

var
Form1: TForm1;
tCount:integer;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
h,n,s:string;
begin
Dec(tCount);
h := IntToStr(tCount div 3600); // 小时
n := IntToStr((tCount div 60) mod 60); // 分钟
s := IntToStr(tCount mod 60); // 秒
if Length(h)=1 then h := '0'+h;
if Length(n)=1 then n := '0'+n;
if Length(s)=1 then s := '0'+s;
Label1.Caption := '离xxx还有：'+h+':'+n+':'+s;
if tCount=0 then begin // 倒计时结束
Timer1.Enabled := False;
// 插入你的代码
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tCount := 100*60; // 100分钟
Timer1.Interval := 1000; // 1秒钟触发一次
Timer1.Enabled := True;
end;

Answer 2

全局变量
var tjs,tjs2:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tjs2:=100;
tjs:=tjs+1;
S1.Caption:='倒记时为：【'+ inttostr(tjs2-tjs)+ '】秒';
end;