Question

我有一个问题。我必须在Delphi 6中为学校做一个项目，我对Delphi 6非常熟悉。我必须在60秒到0秒之间创建一个简单的计时器，它在Edit.Text中会发生变化，但如果它在Label.Caption中也很好。它必须像这样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;

如何在Delphi 6中制作一个简单的重复命令

1 个答案: