Discussion :

[sandokhane]

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 :

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

[Paul TOTH]

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

[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

[sandokhane]

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.

[Moez.B]

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

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 ?

[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

[Moez.B]

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 :

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