倒计时delphi

首先,maskedit的时间掩码,问题,;就是时,分秒,当时一开始就设置错了,正确的应该是?90:00:00;1;0,这样,显示的就是,00:00:00了,如上图所示.

还有就是倒计时,当倒到为00:00:00时,它往负数继续倒数了,这个肯定不行.最后请教了班长,直接用tag了.之前是对maskedit.text中数值判断,因为初值和最后停止时,都是为00:00:00,所以不好分别,所以导致一上来,就出现提示”你所设置的时间到了”,呵呵!

其实很简单,对Tag值设为60,当你设为3分钟时,即为3*60=180秒.只要当tag减到0时,即为停止,这时再弹出消息框.

开始按扭的代码如下:

begin

           m:=timer1.tag-1;

           timer1.Tag:=m;

           n:=m div 60;

           s:=m mod 60;

           h:=n div 60;

           n:=n mod 60;

           maskedit1.text:=format(’%d:%d:%d’,[h,n,s]);

         if timer1.Tag=0 then

         begin

         timer1.Enabled:=false;

         showmessage(’你预定的时间到了!’);

         end;

end;

timer1控件的代码如下:

           m:=timer1.tag-1;

           timer1.Tag:=m;

           n:=m div 60;

           s:=m mod 60;

           h:=n div 60;

           n:=n mod 60;

           maskedit1.text:=format(’%d:%d:%d’,[h,n,s]);