Discussion :

[adelneo]

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 :

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

 ProgressBar1.StepIt

????

[DOLPat®]

Bonjour

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

[adelneo]

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 :

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

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;

[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 :

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

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.

[adelneo]

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 :

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

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 .
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

[Paul TOTH]

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 delphi :

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

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 :

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

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;