Delphi Progress Bar

Question

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

Кроме того, при 0%, должен быть ярлык, который говорит Waiting..., когда начинается прогресс бар, он должен идти к Working..., и когда это будет сделано, он должен сказать Done!.

Answer 1

Использование 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; 

Answer 2

Вы можете использовать таймер с интервалом 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;