Discussion :

[Art19]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
 
for i := 0 to fileList_1m.Count-1 do begin
 
    fonction();
    Form1.ProgressBar1.Position := Form1.ProgressBar1.Position+1;
    Form1.Label1.Caption := fileList_1m[i];
 
end;

ne change pas mon label... vous avez une idee?

[Rayek]

Oui.

Code :

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

1
2
3
4
5
6
7
8
 
for i := 0 to fileList_1m.Count-1 do begin
 
    fonction();
    Form1.ProgressBar1.Position := Form1.ProgressBar1.Position+1;
    Form1.Label1.Caption := fileList_1m[i];
    Application.ProcessMessages; // Laisse passer les messages windows et permettra l'affichage
end;

[Art19]

ok ca marche merci