Barre de progression Delphi

Question

J'essaie de faire une barre de progression qui commence à 0%, et prend 5 secondes pour arriver à 100%. La barre de progression commencera à monter dès que Button1 sera cliqué. Aucun conseil? J'ai regardé sur Google, mais cela ne m'a rien donné de bien sur ce genre de chose.

En outre, à 0%, il devrait y avoir une étiquette qui dit Waiting..., lorsque la barre de progression démarre, il devrait aller à Working..., et quand il est fait, il faut dire Done!.

Answer 1

Utilisation GetTickCount() et les variables INITIALISATION:

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

Vous pouvez utiliser une minuterie avec l'intervalle 50 et tout d'abord activer à 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;