delphi带倒计时的自动关闭

delphi 带倒计时的自动关闭

1>.新建工程，添加控件：

        放一个Edit控件(edt1)和一个button控件(button1)和，还有一个Label控件(Lbl_Time);

2>.时间控件

      添加一个Timer控件(Timer1)，设置Timer1的属性Enabled为False;Intervel的值为：1000(1秒);

3>.设置全部变量TimeCount
   var
       TimeCount: integer;

4>.编写button1 的click事件。
procedure TForm1.button1Click(Sender: TObject);
begin
  if trim(edt1.Text) <> '' then
  begin
    TimeCount := strToInt(trim(edt1.Text))*60;
    tm1.enabled := true;
  end
end;
5>.编程计时器的onTimer事件：
procedure TForm1.Timer1(Sender: TObject);
begin
   Lbl_Time.Caption := Format('%0.2d',[TimeCount Div 60])+':'+Format('%0.2d',[TimeCount Mod 60]);
   TimeCount := TimeCount -1;
   if TimeCount = 0 then
   begin
      Application.Terminate;
   end;   
end;