倒计时

Question

用一个时钟控件，系统启动时，计算距离目标时间的总秒数，时钟控件设为1秒，在时钟事件里写代码，每执行一次将总秒数-1，并显示在EDIT中就可以了。

Answer 1

给你一段例子，窗体上放一个TDateTimePicker,Timer,Button,Edit控件.
var
    iAllSeconds:integer;procedure TForm1.Button1Click(Sender: TObject);
var
    dtTemp:TDateTime;
begin
    dtTemp:=DateTimePicker1.DateTime-now;
    iAllSeconds:=Round(dtTemp*24*60*60);
    Timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Edit1.Text:=IntToStr(iAllSeconds);
    inc(iAllSeconds,-1);
end;