delphi - Delphi 6 で簡単な繰り返しコマンドを作成する方法

Question

質問があります。Delphi 6 で学校のプロジェクトを作成する必要があり、Delphi 6 に精通しています。Edit.Text で変化する 60 秒から 0 秒までの単純なタイマーを作成する必要がありますが、Label にある場合も同様です。キャプション。このように行かなければなりません 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;