Comment implementer un WaitMessage sous Delphi

Version imprimable

salut, je veux faire un traitement, et pendant ce traitement j'affiche un progressBar (avec la propriété marquee activée) implémenté dans un autre Form...
Résultat : Le deuxième Form ne s'affiche pas correctement et le ProgressBar ne bouge pas.
Une idée ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin Form2.Show; for i := 0 to 3000 do begin Button1.Caption := 'Patientez svp.'; Button1.Caption := 'Patientez svp..'; Button1.Caption := 'Patientez svp...'; end; Form2.Close; Button1.Caption := 'Démarrer' ; end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  Form2.Show;
  for i := 0 to 3000 do
    begin
 
        Button1.Caption := 'Patientez svp.' + IntToStr(i);
        Application.ProcessMessages;
 
    end;
 
  Form2.Close;
  Button1.Caption := 'Démarrer' ;
end;

04/03/2013, 11h59
ShaiLeTroll

Pour ton code, c'est juste un Button1.Refresh,
un peu plus lourd Application.ProcessMessages(),
Sinon un Thread et tout cela implique pour la synchro avec IHM
05/03/2013, 11h29
sandokhane

Citation:

Envoyé par ShaiLeTroll

Pour ton code, c'est juste un Button1.Refresh,
un peu plus lourd Application.ProcessMessages(),
Sinon un Thread et tout cela implique pour la synchro avec IHM

Justement... l'opération effectuée prend à peu près 45sec.. ouverture d'une connexion à une bd firebird ...ouverture de plusieurs tables ..peupler une dizaine de combobox..et pendant ce temps je veux afficher un progressBar(marquee) pour indiquer à l'utilisateur que l'application n'est pas bloquée.
05/03/2013, 18h17
Moez.B

Salut :D
La progression doit être relative aux temps d'actions qui sont entrain de dérouler. Autrement, si tu as une connexion à une base, ouverture des tables connectée à cette base, alimentation des combo, alors il faut impliquer l'utilisateur dans l'attente ...
Ce que je fais généralement dans les traitements longs, c'est de présenter le libellé de l'action dans un panel d'un StatusBar et proportionner le nombre d'actions avec le Progress Bar. exemple: pour une connexion à la base + ouverture de 30 tables + alimentation de 15 combo avec en totalité 3000 valeurs possibles ( je dis n'importe quoi car normalement, si on est dans le cas d'une alimentation dynamique, on doit prévoir le nombre de champs avec une RecordCount par exemple ), j'ai 3031 pas dans le Progress avec dans chaque passage un ProcessMessages...

Citation:

ShaiLeTroll
Pour ton code, c'est juste un Button1.Refresh,
un peu plus lourd Application.ProcessMessages(),
Sinon un Thread et tout cela implique pour la synchro avec IHM

Est ce que tu peux expliquer pour le cas des Thread ?
:D:D
05/03/2013, 18h46
ShaiLeTroll

Tu déporte la tache lente dans un thread
l'IHM n'est pas bloqué, tu peux ainsi mettre une patience avec une animation ou encore mieux initialiser d'autres éléments qui n'ont pas de dépendance avec la tache threadée

Citation:

Envoyé par ShaiLeTroll

Tu déporte la tache lente dans un thread
l'IHM n'est pas bloqué, tu peux ainsi mettre une patience avec une animation ou encore mieux initialiser d'autres éléments qui n'ont pas de dépendance avec la tache threadée

J'ai par exemple ce bout de code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure TForm1.Button1Click(Sender: TObject); var i, Haut, Gauche :integer; begin Haut := 10; Gauche := 10; Try Button1.Enabled := False; for i:=0 to 2000 do with TLabel.Create(Self)do begin Parent := Form1; Top := Haut + i*20; Left := 20; Caption := 'Hello'; Application.ProcessMessages; end; Finally Button1.Enabled := True; End; end;
Comment je fais pour incorporer le traitement du bouton dans un Thread pour pouvoir créer en alternative d'autres composants en dynamique par exemple ?:):)

06/03/2013, 10h41
Andnotor

Citation:

Envoyé par Moez.B

Comment je fais pour incorporer le traitement du bouton dans un Thread pour pouvoir créer en alternative d'autres composants en dynamique par exemple ?:):)

A éviter à moins de passer par des synchronisations. La VCL n'est pas thread-safe.
06/03/2013, 11h13
Moez.B

Citation:

Envoyé par Andnotor

A éviter à moins de passer par des synchronisations. La VCL n'est pas thread-safe.

Est-ce que tu peux me donner un petit exemple pour un thread de création ?:ccool:
07/03/2013, 10h46
ShaiLeTroll

On a eu une excellente discussion à ce sujet :Première tentative de multithread, ouch !
On a beaucoup évoque l'interaction entre un Thread et la VCL par différent moyen comme Synchronize ou Queue comme dans Problème de synchronisation entre Thread et VCL