Delphi进度条

Question

我正在尝试制作一个从 0% 开始，需要 5 秒才能达到 100% 的进度条。一旦单击 Button1，进度条就会开始上升。有什么建议吗？我在谷歌上查了一下，但在这类事情上我没有得到任何好处。

此外，在 0% 时，应该有一个标签，上面写着 Waiting...，当进度条开始时，它应该转到 Working...，完成后，应该显示 Done!。

Answer 1

您可以使用间隔为 50 的计时器，并首先将启用设置为 false。

procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  cnt: integer = 1;
begin
  ProgressBar1.Position := cnt;
  if cnt = 1 then Label1.Caption := 'Waiting...'
  else if cnt = 100 then begin
    Label1.Caption := 'Done!';
    Timer1.Enabled := False;
  end else
    Label1.Caption := 'Working...';
  Inc(cnt);
end;