Progressbar avec edit

Résolu
Signaler
Messages postés
108
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
19 juin 2012
-
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
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

3 réponses

Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
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
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Il faut utiliser les propriétés Min, Max et Position de la ProgressBar.
Messages postés
108
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
19 juin 2012

oui d'accord.
mais pouvais vous me donné un exemple de code merci!!