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

Soyez le premier à donner votre avis sur cette source.

Vue 7 514 fois - Téléchargée 17 532 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
328
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
8 mars 2007

Wow beau Code, et tu peux me dire ou tu as télécharger Delphi 7 (un lien ou quelque chose en pv svp)
Merci d'avance !!!

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.