Discussion :

[tomy29]

Bonjour,

j'ai un traitement qui créé des fichiers CSV, cela peut prendre plusieurs seconde voire une ou deux minutes.
J'aimerais afficher un sablier(ou qqchose qui montre qu'un traitement est en court) durant ce traitement, est-ce possible?

Merci!

[Cl@udius]

Salut

Tu peux faire ainsi:

Code :

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

1
2
3
4
5
6
7
 
  Screen.Cursor := crHourGlass;
  try
    // .... ton traitement
  finally
    Screen.Cursor := crDefault;
  end;

Le bloc Try..Finally..end est juste là pour s'assurer que le curseur reprendra sa forme même si une erreur se produit pendant le traitement.

@+ Claudius

[kevinou55]

tu pourrais faire quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
 
sablier.Visible:=True;
Form1.Enabled:=False;
Repeat
     Applicaton.ProcessMessages;
Until FichierCSVCréé;
 
Form1.Enabled:=True;
sablier.Visible:=False;

Je ne sais pas si ca répond correctement à ta question mais j'aurais essayé

[kevinou55]

a oui c'est beaucoup plus simple Claudius
Je m'etais fais une mauvaise idée de ce que tu voulais...

[tomy29]

Merci à vous deux!
Oui la solution de CLaudius est vraiment simple
et efficace.