TProgressWait - Exemples
| TProgressWait = class (TObject) | Interface de TProgressWait | Exemples de TProgressWait |
Affiche une barre de progression durant 30 secondes
// crée un écran de progression interruptible
var progress:=TProgressWait.Create('Exemple', 'Attendre 30 secondes', True);
// Démarre le calcul du temps restant estimé
progress.Start;
for var i:=1 to 30 do begin
if progress.Interrupted then Break;
// avancement attendu en pourcents (0 à 100)
progress.Progress(i/30*100);
if i=10 then progress.Label:='Encore 20 secondes';
Sleep(1000);
end;
// masque l'écran de progression
// (si Free n'est pas appelé explicitement, il est automatiquement fermé à la fin du script)
progress.Free;
var progress:=TProgressWait.Create('Exemple', 'Attendre 30 secondes', True);
// Démarre le calcul du temps restant estimé
progress.Start;
for var i:=1 to 30 do begin
if progress.Interrupted then Break;
// avancement attendu en pourcents (0 à 100)
progress.Progress(i/30*100);
if i=10 then progress.Label:='Encore 20 secondes';
Sleep(1000);
end;
// masque l'écran de progression
// (si Free n'est pas appelé explicitement, il est automatiquement fermé à la fin du script)
progress.Free;