怎样让一个窗口在显示了指定时间后才能关闭？？？？

使用timer控件呀，但是求两个时间差不是那么简单的

解决方案 »

  1.   

    1.先在form上放一个timer,把interval设成你要显示的时间,如30000就是30秒;
    2.在timer的OnTimer事件程序中写:
    timer.Enabled := False;
    Close;OK!
      

  2.   

    窗口要动态生成。用Timer控件,如果要显示5分钟,Interval值为30000, 1000是1秒。
      

  3.   

    必须使用Timer吗？没有其他方法了吗？
      

  4.   

    form不一定要动态生成.
    如果form是自动生成的,则timer的enabled初始设为false,当要显示form时,程序如下:
    form.show;//or showmodal
    form.timer.enabled := true;
      

  5.   

    1,
    var
      MyDate1,MyDate2:TDateTime;
    begin
      Edit1.text:=IntToStr(Trunc(MyDate2-MyDate1);
    end;//这个是时间差了2，
    要精确时间不是太严格的时候，可以使用GETTICKCOUNT函数来做
      

  6.   

    最好的方法还是使用timer来判断.
      

  7.   

    MyDate2-MyDate1,中途系统时间被改变了就惨了!
      

  8.   

    要示时间差,这样也可以:1.声明一个变量:
    aTime: TTime;
    2.记下开始时间:
    aTime := Time;
    3.计算时间差:
    somevariable := Time - aTime;结果单位是秒.当然,这种情况不能用于计算时间差起过24小时的情况.
      

  9.   

    >>MyDate2-MyDate1,中途系统时间被改变了就惨了! 
    同意oysy(太阳之子)　
      

  10.   

    使用两次gettickcount
    如果差为你要的时间则关闭
    gettickcount返回时间单位为秒
      

  11.   

    wr960204(武稀松)　的方法最简单!我为上面提供的方法感到惭愧!看了一下help,gettickcount的单位好像是毫秒吧?