Hello,
je suis nouveau nouveau a delphi, et j'ai un soucis avec une progressbar :
je fais
Ceci ne fonctionne pas ma progressbar n'avance pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Prgbar.Max :=10; prgbar.Position := 0; while not mydataset.eof do begin Prgbar.position := prgbar.Position + 1; mydataset.next; end;
en faisant des tests j'ai réussi a en faire fonctionner une :
Mais le même code avec 10 éléments ne marche pas, et en plus la fonction update de la form fait vraiment ralentir énormément l'exécution.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 prgbar.Position := 0; Prgbar.Max := 1000; for i:=0 to 999 do begin prgbar.Position :=prgbar.Position+1; update; end;
Je me dis donc que je fait mal qqchose.
??
Thx![]()
Partager