[Procedure] Affichage progressif des résultats

**xenos** · 30/12/2005, 21h10

Salut,

Je développe un software avec Delphi 2005, sous WinXP.

Comme vous pouvez le voir, dans le code ci-dessous, l'utilisateur clique sur un bouton. A ce moment là, on effetue la procédure Belgique, à la fin de laquelle on doit afficher un résultat dans le LabelBe.

Ensuite la procédure TForm4.Button1Click continue, et appelle la procédure "Europeen", le code s'effectue et à la fin le labelEu doit afficher le résultat.

Et ainsi de suite.

Le problème étant qu'au lieu d'afficher progressivement les résultats (LabelBe, puis LabelEu, puis LabelFr), il affiche tous les résultats, en même temps, à la fin.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
[...]
 
  private
    { Private declarations }
    Procedure Belgique;
    Procedure Europeen;
    Procedure France;
 
[...]
 
Procedure TForm4.Belgique;
var
  Status : String;
begin
{------------------------------ Code ------------------------------}
  LabelBe.Caption := Status;
end;
 
Procedure TForm4.Europeen;
var
  Status : String;
begin
{------------------------------ Code ------------------------------}
  LabelEu.Caption := Status;
end;
 
Procedure TForm4.France;
var
  Status : String;
begin
{------------------------------ Code ------------------------------}
  LabelFr.Caption := Status;
end;
 
[...]
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  Belgique;
  Europeen;
  France;
end;
 
[...]

Ma question est : Comment faire pour que l'apparition des résultats se fasse petit à petit, pour ne pas faire attendre l'utilisateur ?

D'avance merci pour vos idées.