Mise à jour de scrollbar

Bonjour

quelque chose m'échappe...
je pensais que le scrollbar (ou edit) se mettait à jour pendant l’exécution de la Boucle mais visiblement ça ne fonctionne pas...
ça ne met à jour qu'à la sortie de la boucle.

Pourtant il me semble que j'avais déjà fait quelque chose de similaire.

Alors merci d'avance de votre éclairage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); var i,nb:integer; begin nb:=100000; scrollbar1.min:=1; scrollbar1.max:=nb; for i:=1 to nb do begin edit2.Text:=intToStr(i); scrollbar1.Position:=i; end; end;

---

Bien cordialement

Citation:

---

Envoyé par joreveur

Bonjour

quelque chose m'échappe...
je pensais que le scrollbar (ou edit) se mettait à jour pendant l’exécution de la Boucle mais visiblement ça ne fonctionne pas...
ça ne met à jour qu'à la sortie de la boucle.

---

Le problème provient du fait que la boucle interdit l'exécution des messages en attente, en particulier ceux qui mettent à jour les contrôles.
On peut s'en sortir (même s'il vaut mieux réécrire le tout pour gérer correctement les événements) en introduisant une ligne qui permet ce traitement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var i,nb:integer; begin nb:=100000; scrollbar1.min:=1; scrollbar1.max:=nb; for i:=1 to nb do begin application.ProcessMessages; // la nouvelle ligne edit2.Text:=intToStr(i); scrollbar1.Position:=i; end; end;

---

Bien cordialement,

Gilles

Merci Gilles pour ta réponse rapide.
En effet c'est une bonne méthode, mais c'est vrai que ce n'est peut-être pas une bonne idée que d'actualiser les contrôles pendant une boucle.
Bonne soirée et encore merci

Bien à toi