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