Question

新手求助，delphi里Timer 从60开始倒计时，想点击按钮之后重新从60开始倒计时该怎么做。

Answer 1

var
FTim: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
FTim := 60;
Timer1.Interval := 1000;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Dec(FTim);
Caption := IntToStr(FTim);
if FTim <= 0 then Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FTim := 60;
Timer1.Enabled := True;
end;