Question

问：delphi中我想实现时间倒计时！咋写程序？谢谢

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
var
t, nt:Tdatetime;
i:integer;
xs,m,s:string;

{$R *.DFM}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if i > 0 then i:=i-1 else i:=1000;
nt:=now();
xs :=formatdatetime('hh:mm:ss',nt-t);
if xs ='00:10:00' then Timer1.Enabled:=false; //设定时间10分钟
m:= inttostr(9 - strtoint(copy(xs,4,2)));
if length(m)=1 then m :='0'+m;
s:=inttostr(59 - strtoint(copy(xs,7,2)));
if length(s)=1 then s :='0'+s;
label1.Caption:='00:'+m+':'+s+':'+inttostr(i);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Timer1.Interval:=1;
if Timer1.Enabled then Timer1.Enabled:=false
else Timer1.Enabled:=true;
t:=now();
end;

end.

Answer 2

gettickcount

Answer 3

http://m.jb51.net/article/52283.htm

追答

这种例子，源程序，控件多如牛毛