Problème de refresh d'une TProgressBar

Bonjour à tous,
mon problème est le suivant: j'ai une fenêtre contenant une TProgressBar, qui appelle une classe indépendante qui fait un calcul assez long (import d'un fichier Excel d'une longueur connue): je peux donc, dans ma classe d'import, connaitre la proportion de temps qu'il me reste pour finir l'import. J'essaie donc de mettre à jour la progressBar de la fenêtre, mais ça ne fonctionne pas. Dans mon code, lors de l'appel de ma fonction de classe d'import depuis la fenêtre (lors d'un click), j'envoi le pointeur vers la TProgressBar, que j'utilise dans la classe pour la mettre à jour. Or, la progressBar ne bouge pas à l'écran. Alors que j'ai pris soin d'ajouter des lignes de raffraichissement juste après la modification de la position: refresh(), repaint() et même Application->ProcessMessages()
Ce qui est bizarre, c'est que lorsque j'affiche, avec un MessageBox, la valeur de progress->Position, j'ai la bonne valeur!

Voici un extrait du code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

/**** dans la fenetre ****/ TProgressBar* progress; obj->loadFile(filename, progress);   /**** dans la classe ****/ void loadFile(AnsiString filename, TProgressBar* progress){ progress->Min = 0; progress->Max = 100; for (int i=0; i<100; i++){ // import excel progress->Position = i; progress->Refresh(); progress->Repaint(); Application->ProcessMessages(); } }

---

Merci de vos idées et suggestions!
A bientot

Benz

C'est assez connu comme PB:

Si c'est ta classe ou ta fonction tu doit intégrer dans tes longs calculs des appels réguliers à

Code:

---

Application->ProcessMessages();

---

Sinon certain composant comme Indy ont des fonctions "Antifreeze".

Dans ton cas il faudra peut être faire un thread avec ta fonction d'import afin de ne pas perdre la main dans l'application en cours

Je viens de résoudre mon problème en faisant un test tout bête!!
En fait, je voulais essayer avec un mémo, et y afficher le numéro de la ligne que j'importe. J'ai donc changé mon paramètre de la fonction en TComponent* histoire d'être plus générique, et je caste ensuite le paramètre en (TMemo*) pour y écrire. Là, ça fonctionne! Donc, je me suis dit que j'allais essayer de passer la progressBar en TComponent et de la caster à l'arrivée. Et là, ça fonctionne aussi!

Code:

---

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

/**** dans la fenetre ****/ TProgressBar* progress; obj->loadFile(filename, progress);   /**** dans la classe ****/ void loadFile(AnsiString filename, TComponent* progress){ ((TProgressBar*)progress)->Min = 0; ((TProgressBar*)progress)->Max = 100; for (int i=0; i<100; i++){ // import excel ((TProgressBar*)progress)->Position = i; Application->ProcessMessages(); } }

---

J'ai laissé ProcessMessages(), mais j'ai fait un test sans et ça marche aussi (pour la progressBar, mais la fenêtre est moins réactive)

Merci quand même pour votre aide!
Benz