timer1.enable := False;timer1.enable := True;重开一次后,重新计时

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    mytime:=now;
    timer1.Interval:=0;
    timer1.Interval:=60000;
    end;
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    mytime:=now;
    timer1.enable := False;
    timer1.Interval:=60000;
    timer1.enable := True;
    end;
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    timer1.enable := False;
    showmessage('time up');
    end;
    end.
      

  3.   

    来晚了!:(
    timer在enable:=true后就开始计时要使用时先用enable:=false复位
      

  4.   

    heifei() ,你确实来晚了,分数早完了