Delphiプログレスバー

Question

私は0％から始まり、100％になるまでに5秒かかるプログレスバーを作ろうとしています。ボタン1をクリックするとすぐにプログレスバーが上がり始めます。何かアドバイス？私は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のタイマーを使用し、最初にenabledを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;