Discussion :

[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.

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

Alors merci d'avance de votre éclairage

Code :

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

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

[gvasseur58]

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 :

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

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

[joreveur]

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