高手请进

Question

时间控件设计。设计一个倒计时界面，初始时间设置为90分，从90分开始倒计时，当时间显示为00:00（0分0秒）时，现实提示信心“时间到”，时间停止变化。时间显示在一个edit控件上......比如

Answer 1

窗体内加个private变量
   CountDown:Integer;加个Timer控件到窗体上,interval设为1000,FormCreate里面写
  CountDown:=5400;Timer1Timer里面写
 Dec(CountDown);
 Edit1.Text:=Format('%2d:%2d',[CountDown div 60,CountDown mod 60]);
 if CountDown=0 then
 begin
    Timer1.Enable:=False;
    ShowMessage('打完收工')
 end;