[TOpenDialog] - comment fermer/cacher immédiatement ?

**Mirko** · 08/12/2006, 14h29

Bonjour à tous.

Je débute avec Delphi et je suis confronté à un problème auquel je n'ai pas trouvé la solution sur google et dans ce forum. J'espère que ma question n'est pas trop basique...

Je suis en train d'écrire une application qui permet de choisir un fichier via TOpenDialog puis de le traiter via une routine se nommant "traiter_fichier". Le problème auquel je suis confronté est que la fenêtre utilisée pour la sélection du fichier reste visible pendant que la routine "traiter_fichier" s'exécute (le traitement peut durer jusqu'à 30 secondes).

Mon code est le suivant:

Code :

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

1
2
3
4
5
6
 
openDialog := TOpenDialog.Create(self);
if openDialog.Execute then
   fnom := openDialog.FileName;
openDialog.Free;           
traiter_fichier(fnom);

Que dois-je faire pour fermer "openDialog" avant de lancer la routine "traiter_fichier"? J'ai besoin d'une solution qui soit aussi générique que possible (lire qui n'est pas spécifique à Delphi sous Windows).

D'avance, merci pour vos réponses.

**slimjoe** · 08/12/2006, 14h36

Désolé, mais moi ce code fonctionne parfaitement (le showmessage s'affiche après que le TOpenDialog se soit effacé) :

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
procedure TForm1.btn1Click(Sender: TObject);
 
   procedure traiter_fichier(S: string);
   begin
      Showmessage(S);
   end;
 
var
   openDialog: TOpenDialog;
   fnom: string;
begin
  openDialog := TOpenDialog.Create(self);
  if openDialog.Execute then
    fnom := openDialog.FileName;
  openDialog.Free;
  traiter_fichier(fnom);
end;

Je suspecte un problèmes de rafraîchissement (la fenêtre du OpenDialog reste dessinée en arrière plan pendant le traitement). Est-ce que tu peux utiliser le OpenDialog durant le traitement ou est-ce qu'il est figé ? As tu essayé de faire un Refresh ou un Invalidate sur la fiche principale juste après le Free() du Dialog (question de forcer cette dernière à se redessiner) ? Peut-être un Application.ProcessMessages() ?

**Cl@udius** · 08/12/2006, 14h47

Salut,

Je suis de l'avis de SlimJoe. Ajoute un ProcessMessages avant l'appel de ton traitement sur le fichier:

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.btn1Click(Sender: TObject);
 
   procedure traiter_fichier(S: string);
   begin
      Sleep(3000); // pour simuler un temps de traitement long
      Showmessage(S);
   end;
 
var
   openDialog: TOpenDialog;
   fnom: string;
begin
  openDialog := TOpenDialog.Create(self);
  if openDialog.Execute then
    fnom := openDialog.FileName;
  openDialog.Free;
  Application.ProcessMessages;
  traiter_fichier(fnom);
end;

[edit]
Ah au fait, bienvenu sur Developpez.com

[/edit]

@+ Claudius

**Mirko** · 08/12/2006, 15h29

Merci pour vos conseils. Application.ProcessMessages() a résolu le problème. Ca marche tiptop.

En fait j'avais oublié d'inclure une petite précision ô combien cruciale dans mon premier message: dans "traiter_fichier" il y a un appel à un programme externe via TProcess. Je le mentionnne ici au cas ou quelqu'un d'autre aurait le même problème à l'avenir...

Mais tout est bien qui finit bien. Merci encore.

EDIT: N.B. Je viens de m'apercevoir que j'ai posté dans le mauvais forum...