Fenêtre avec jauge affichant la durée restante du traitement

Télécharger le projet
Commenter

Description

C'est un code qui permet d'afficher une fenêtre contenant un jauge, et affichant la durée du traitement restant, dans le style de copie des fichiers de Windows.

On peut cliquer sur le bouton [ Arrêter ] pour interrompre le traitement pendant l'execution

Source / Exemple : 


exemple d'utilisation:
//--------------------------------------------------------------
procedure TDalProgressCountDown.Panel3DblClick(Sender: TObject);
//--------------------------------------------------------------
var
  i: integer;
begin
  i := 0;
  Init( 'Compteur de boucle', 0, MaxInt, True );
  while i < MaxInt do
  begin
    Step( i, 'Compteur : '+inttostr(i) );
    inc(i);
    if Stopped then
      i := MaxInt;
  end;
  Close;
end;

Conclusion :


La transformation du code en composant est en cours.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.