Discussion :

['ti programmeur]

bonjour, je voudrais afficher dans un programme une barre de chargement (qui se rempli petit a petit) du genre lors d'une installation.

[Clandestino]

Le composant que tu cherches s'appelle un Tprogressbar et se trouve dans le troisième onglet de composants, de nombreux exemples avec Delphi montrent comment s'en servir...

Google est ton ami

Bonne continuation

['ti programmeur]

heu last question :
j'ai fait un code du site mais la barre se rempli en un fragment de seconde je voudrai que ça ce face en plusieurs seconde...
merci d'avance.

[Clandestino]

la barre a quelques propriétés utiles :

Smooth, qu'il vaut mieux mettre à true et qui permet ainsi à ta barre d'avancer de manière continue plutot que par blocs...
Min et max qui indiquent les valeurs inférieures et supérieures entre lesquelles la barre va progresser.
Position qui fixe l'avancée de la barre...

Ainsi pour indiquer une progression de 24 % sur une barre ou min :=0 et max :=200 tu fixe la progessbar en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Progressbar1.Position := 48

Bref à toi de faire défiler ta barre valeur par valeur par rapport à un traitement qui dure plus de quelques secondes pour avoir l'effet recherché...

Un exemple? On va faire avancer ta progressbar toutes les secondes ...
Met un controle TTimer sur ta fiche (onglet system).
sa propriété interval à 1000 par défaut signifie qu'il réagit toutes les 1000 millisecondes lorsqu'il est en route (il est en route par défaut)...
Dans l'évènement ontimer, ajoute le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
progressbar1.position := progressbar1.position+5;
If progressbar1.position> progressbar1.Max then Timer1.Enabled := false;