delphi - 如何在 Delphi 6 中制作简单的重复命令

Question

我有个问题。我必须在 Delphi 6 中为学校制作一个项目，并且我对 Delphi 6 非常熟悉。我必须制作一个从 60 秒到 0 秒的简单计时器，它在 Edit.Text 中发生变化，但如果它在标签中也很好。标题。它必须像这样 60,59,58,57 (..etc) 3,2,1,0。最后它必须打开一个新表单我有一个想法是这样的：

enter code here begin Repeat A:60-1 Until A=0 Form2.Show; end; end.

我知道这很糟糕，有人可以帮帮我吗？

Answer 1

就像您说的那样，使用计时器，例如与TTimer组件一起使用，例如：

type
  TForm1 = class(TForm)
    //...
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    //...
  private
    Counter: Integer;
    //...
  end;

// when you are ready to start the timer...
Counter := 60;
Label1.Caption := IntToStr(Counter);
Timer1.Enabled := True;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  Dec(Counter);
  Label1.Caption := IntToStr(Counter);
  If Counter = 0 then
  Begin
    Timer1.Enabled := False;
    Form2.Show;
  end;
End;