Delphi Progress Bar

Question

Я пытаюсь создать индикатор выполнения, который начинается с 0% и занимает 5 секунд, чтобы добраться до 100%. Индикатор выполнения начнет подниматься, как только будет нажата кнопка 1. Любой совет? Я посмотрел в Google, но это не дало мне ничего хорошего в таких вещах.

Кроме того, при 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;

Answer 2

Использование GetTickCount () и инициализация переменных:

uses Windows;

var mseconds, starttime: integer;


procedore TForm1.FormCreate()
begin
  starttime := GetTickCount();
  mseconds := 0;
  Timer1.Enabled := false;
  Label1.Caption := '';
  ProgressBar1.Position := 0;
  Label1.Caption := 'Waiting...';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin  
  ProgressBar1.Min := 0;
  ProgressBar.Max := 100;
  ProgressBar1.Position := 0;
  timer1.Enabled := True;
  Label1.Caption := 'Working...';  
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin  
  mseconds := GetTickCount() - starttime;
  if mseconds < 5000 then
    ProgressBar1.Position := Trunc(mseconds / 50)
  else begin
    ProgressBar1.Position := 100;
    Label1.Caption := 'Done!';
    Timer1.Enabled := false;
  end;
end;