ProgressBar dans un SplashScreen

Salut tout le monde.
Pourquoi les composant ProgressBar personnalisés (comme le JVXPProgrssBar de la JVCL et plein d'autres) ne fonctionnent pas dans un SplashScreen (aucune progression de la barre), au moment que le composant natif de Delphi fonctionne parfaitement avec le même code source

Code:

---

ProgressBar1.StepIt

---

????

Bonjour

As-tu essayé de mettre un Application.ProcessMessage après ton StepIt ?

Citation:

---

Envoyé par DOLPat®

Bonjour

As-tu essayé de mettre un Application.ProcessMessage après ton StepIt ?

---

Oui j'ai déjà essayé Application.ProcessMessage mais sans succès, la barre de progression ne bouge pas (sa position reste à zéro), contrairement au TProgressBar de Delphi qui fonctionne parfaitement (même sans Application.ProcessMessage) !!

Voici le code que j'utilise:

Code:

---

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

{$R *.res}   begin Application.Initialize; with TSplashScreen.Create(nil) do try ProgressBar1.Max := 99; progressbar1.Step:=33; Show; Update; Application.Title := 'My Application'; Application.CreateForm(TForm1, Form1); ProgressBar1.StepIt; Application.CreateForm(TDataModule, DataModule); ProgressBar1.StepIt; Application.CreateForm(TForm2, Form2); ProgressBar1.StepIt; finally Release; end;

---

La progress bar se redessine mais c'est une mauvaise chose car la fenêtre elle est figée. si tu invalides la fenêtre tu verras que seule la barre se redessine.

le mieux c'est encore de mettre le traitement dans un Thread qui utilise PostMessage() pour informer la fenêtre de l'état d'avancement.

Code:

---

1 2 3 4 5 6

procedure TForm1.WMUser(var Msg: TMessage); // message WM_USER begin ProgressBar1.Max := Msg.lParam; ProgressBar1.Position := Msg.wParam; end;

---

et cela fonctionne avec toutes les barres.

Citation:

---

Envoyé par Paul TOTH

La progress bar se redessine mais c'est une mauvaise chose car la fenêtre elle est figée. si tu invalides la fenêtre tu verras que seule la barre se redessine.

le mieux c'est encore de mettre le traitement dans un Thread qui utilise PostMessage() pour informer la fenêtre de l'état d'avancement.

Code:

---

1 2 3 4 5 6

procedure TForm1.WMUser(var Msg: TMessage); // message WM_USER begin ProgressBar1.Max := Msg.lParam; ProgressBar1.Position := Msg.wParam; end;

---

et cela fonctionne avec toutes les barres.

---

Merci pour votre réponse.
Sincèrement j'ai pas très bien compris votre approche car j'ai pas eu l'occasion de travailler avec les Threads :oops:.
je vous serais reconnaissant si vous aurais le temps de m'expliquer un peut plus le fonctionnement et l'implémentation de cette procédure :mrgreen:

Le point de départ serait ceci qui propose d'afficher un "veuillez patienter" sur une tâche un peu longue.

Le code utilise déjà PostMessage() pour signaler à la fenêtre que la tâche est terminée.

le code exécuté dans Form1 (GetFileList) ne se prête pas à une barre de progression puisqu'on ne connait pas le nombre de fichiers présents à l'avance...mais le principe serait d'ajouter un PostMessage dans ce code...

Code:

---

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

procedure TForm1.GetFileList; var f: TSearchRec; begin AllocConsole; WriteLn('Recherche en cours...'); if FindFirst('C:\*.*', faAnyFile, f) = 0 then begin repeat PostMessage(WaitForm.Handle, WM_USER + 1, FList.Count, 100); // wParam = Numéro de Fichier lParam = Nombre Total (100 est bidon ici) WriteLn('Found ', f.Name, '...'); FList.Add(f.Name); Sleep(FSlow); until FindNext(f) <> 0; FindClose(f); end; end;

---

qui sera interprété dans la WaitForm dans laquelle on ajoute un progressbar

Code:

---

1 2 3 4 5 6

procedure TWait.WMUser1(var Msg: TMessage); // message WM_USER + 1 begin ProgressBar.Max := Msg.lParam; // 100 ProgressBar.Position := Msg.wParam; // FList.Count end;

---

Je vous remercie ;).