Progressbar avec edit [Résolu]

Messages postés
110
Date d'inscription
dimanche 2 mars 2003
Dernière intervention
19 juin 2012
- - Dernière réponse : japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 22 févr. 2005 à 21:35
bonjour comment fait on pour faire avancer un progress bar en fonction d'un temps donner dans un tedit
ex:
10 seconde dans le tedit et la progress bar arrivera a 100 au bout de ces 10 seconde
merci d'avance
cordialement
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
3
Merci
Bon, ok...



Petit exemple simplissime : 1 ProgressBar, 1 Button, 1 Edit, 1 Label



var Cnt: Integer;



procedure TForm1.Button1Click(Sender: TObject);

begin

ProgressBar1.Max := StrToIntDef(Edit1.Text, 0);

Cnt := 0;

Timer1.Enabled := True;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption := IntToStr(Cnt);

ProgressBar1.Position := Cnt;

Inc(Cnt);

if Cnt > ProgressBar1.Max then

Timer1.Enabled := False;

end;



Si ça te convient, n'oublie pas de cliquer sur Réponse acceptée



Bonne prog'



japee

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 86 internautes nous ont dit merci ce mois-ci

Commenter la réponse de japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
0
Merci
Il faut utiliser les propriétés Min, Max et Position de la ProgressBar.
Commenter la réponse de japee
Messages postés
110
Date d'inscription
dimanche 2 mars 2003
Dernière intervention
19 juin 2012
0
Merci
oui d'accord.
mais pouvais vous me donné un exemple de code merci!!
Commenter la réponse de ced55957

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.