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

求一个delphi制作的计时器 源代码~

这是我以前写的，点1分钟就会倒计时1分钟，10分钟就倒计时10分钟。
附上源码，自己参考修改一下吧。
=============================start==================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
STime : TTime;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if STime>=1/86400then
begin
STime:= STime - 1/86400;
Edit1.Text := FormatDateTime('hh:nn:ss',STime);
end else
begin
Edit1.Text:='time up';
Timer1.Enabled:=False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
STime := (600*1+1)/86400;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
STime := (60*1+1)/86400;
Timer1.Enabled:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0);
end;
end.
===========================end=================================

用TIMER控件，每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;

全局变量
var tjs,tjs2:integer;

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

---

城中区13871135464： delphi怎么做倒计时器,代码是怎么写？
佴苏八珍： 说明: 1.建立一个新的Project 2.在Form上放一个TLabel 和 TTimer 3.定义Form的Create事件和TTimer的OnTimer事件,拷贝相应的处理程序即可 var Form1: TForm1; tCount:integer; implementation {$R *.DFM} procedure TForm1.Timer1Timer(...

城中区13871135464： 如何用delphi做一个倒计时程序?如何用delphi做一个倒计 ？
佴苏八珍： delphi中有一个控件叫做“TTimer”,在“system”那一栏中,它是一个定时器.你可以设置它多长时间触发一次.比如,你的定时程序要它1分钟后报时.你可以设置它的interval属性等于60,然后在时间中加入蜂鸣函数即可.

城中区13871135464： 如何用delphi制作一个60秒的倒计时 - ？
佴苏八珍： 定义一个全局变量T=60 拖一个控件Timer,再拖一个label1 在timer的ontimer事件里写: T--; label1.caption=＂剩余时间:＂+inttostr(T)+＂秒＂; if(T=0)...//T=0怎么怎么

城中区13871135464： 用delphi做一个倒计时的程序 - ？
佴苏八珍： 一个timer控件,timer的interval设置成1000,将设定的时间与当前时间想减,换算成具体的秒,然后相减就行.

城中区13871135464： 求段Delphi倒计时代码 ~？
佴苏八珍： 用FOR循环

城中区13871135464： 求 用delphi 做一个显示窗口的倒计时？
佴苏八珍： shutdown -s -t 3600 是一个小时后关机 会显示窗口 比如你的电脑要在24:00关机,可以选择“开始→运行”,输入“at 24:00 Shutdown -s”,这样,到了24点,电脑就会出现“系统关机”对话框,默认有30秒钟的倒计时并提示你保存工作.如...

城中区13871135464： delphi 时间控件 想实现倒计时 比如从 60秒钟到0 停下来! - ？
佴苏八珍： 把A定义为窗体的变量,启动Timer前赋值为60.Timer事件中 A := A - 1; //界面刷新时间... if A = 0 thenTimer1.Enable := False;

城中区13871135464： delphi倒计时代码怎么写从分钟开始 - ？
佴苏八珍： 设置Timer的Interval为3600 .

城中区13871135464： delphi 倒计时程序 怎样做! - ？
佴苏八珍： 用时钟啊,定义一个全局变量,然后再时钟里面将变量递减.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: ...

城中区13871135464： 用delphi制作数码倒计时器怎么做 - ？
佴苏八珍： 用imagelist和timer结合使用,所有图片按照9~0次序导入imagelist,用timer控制,每秒更换一个图片