Discussion :

[Nono23]

Bonjour tout le monde,

J'ai une bizzarerie que je n'arrive pas à expliquer.

Dans mon programme, il m'arrive de devoir fermer la fenêtre principale dans le formshow car certaines conditions ne sont pas remplies. J'appelle donc la fonction

Code :

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

Close

à l'intérieur de la fonction "FormShow". Jusqu'à aujourd'hi, ça fonctionnait parfaitement bien.

J'ai installé mon application sur un PC en Windows 7 32 bits (Chose que j'ai déjà fait auparavant et qui fonctionnait très bien) et le close n'est pas exécuté, ma fenêtre reste ouverte.

Ce qui est étrange c'est que si, juste après le close, je fais :

Code :

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

1
2
 
ShowMessage('');

Alors là, la fenêtre se ferme. Par contre, le showmessage n'affiche rien du tout

J'ai essayé plusieurs variantes comme :

Code :

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

1
2
3
4
 
  - postmessage(self.Handle, WM_CLOSE, 0, 0);
  - Application.Terminate
  - Delay(100) //Après le close

Rien de tout ça ne fonctionne.

J'ai essayé de faire deux close à la suite. ça fonctionne mais ça pose des problèmes sur tous les autres PC qui fonctionnaient très bien avant.

Est-ce que quelqu'un y comprend quelque chose? Y a-t-il un moyen de régler ça?

Sur le même PC, j'ai d'autres application qui font un close dans le formshow et ça fonctionne très bien

Merci d'avance

[Whiler]

J'essayerais en créant une procédure PostShow... histoire de laisser le temps qu'il faut à Windows pour qu'il fasse tout ce dont il a besoin...

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
const
  WM_AFTER_SHOW  = WM_USER + 1;
 
private
    procedure PostShow(var Msg: TMessage); message WM_AFTER_SHOW;
 
...
 
procedure TfrmMain.FormShow(Sender: TObject);
begin
  // ...
 
  PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;
 
procedure TfrmMain.PostShow(Sender: TObject);
begin
  Self.Close;
end;

[Nono23]

Salut Whiler,

Merci de ta réponse.

Entre temps j'ai fais encore quelques essais et si je fais un

Code :

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

Application.ProcessMessages

Tout à la fin de mon FormClose, ça résous mon problème.

histoire de laisser le temps qu'il faut à Windows pour qu'il fasse tout ce dont il a besoin...

Tu penses que c'est parce que cet ordinateur en particulier ne laisse pas le temps à Windows d'exécuter tout ce qu'il faut? je n'ai pas tout compris les causes de ce problème.

[Whiler]

Sous 7, il fait plus de trucs qu'avant... création du bouton dans la barre des tâche, de le prévisualisation, ...

Et du coup, il n'a pas encore fini lorsque tu demandes le close...

Et donc, le ProcessMessages lui laisse le temps de faire ce qu'il a à faire et résout le pb... c'est clair que c'est plus simple que ma solution

[Nono23]

Merci beaucoup pour ces précisions.

je peux donc écarter la thèse du PC hanté ou de l'usine du client construite sur un ancien cimetière indien (J'en étais presque réduite à ça).

[Paul TOTH]

Merci beaucoup pour ces précisions.

je peux donc écarter la thèse du PC hanté ou de l'usine du client construite sur un ancien cimetière indien (J'en étais presque réduite à ça).

attends de trouver la bonne réponse avant d'écarter d'autres solutions

[guillemouze]

Sous 7, il fait plus de trucs qu'avant... création du bouton dans la barre des tâche, de le prévisualisation, ...

Et du coup, il n'a pas encore fini lorsque tu demandes le close...

Et donc, le ProcessMessages lui laisse le temps de faire ce qu'il a à faire et résout le pb... c'est clair que c'est plus simple que ma solution

Un simple "Application.Terminate" devrait suffir. Si mes souvenirs sont bons, cette fonction set juste le flag "Terminated' a true, et ce terminated est verifié a chaque message, dans la boucle principale. Donc ton exe devrait arreter de boucler et terminer !

Code :

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

1
2
3
4
5
6
7
 
//structure de la boucle de message de l'application (il me semble)
procedure Application.WndProc(...);
begin
  while not Terminated do
    processMessage(PopMessage(...));
end;

[Whiler]

Un simple "Application.Terminate" devrait suffir. Si mes souvenirs sont bons, cette fonction set juste le flag "Terminated' a true, et ce terminated est verifié a chaque message, dans la boucle principale. Donc ton exe devrait arreter de boucler et terminer !

Perso, j'n'aime pas parce que s'il y a du code fonctionnel dans d'autres événements, ils ne seront pas appelés (close, closequery, ..).
Mais si ce n'est pas le cas, c'est clair que c'est le plus rapide (sans modifier le dpr).

[ShaiLeTroll]

Le mieux est de procéder différemment : c'est de ne pas lancer le Run de Application si le contexte n'est pas complet !

Si ton programme est correctement architecturé, tu as des objets systèmes et métiers que tu peux contrôler avant de faire CreateForm et Run, si echec, tu ne fais ni l'un ni l'autre !

Si tout est bon, tu fais un CreateForm, le constructeur du MainForm fait d'autre contrôle et déclenche une exception que tu captureras sans lancer le Run

utilise un SplashScreen durant les controles permettra de faire patienter l'utilisateur !

Si tu ne veux pas te prendre la tête, détecte la version de Window et si c'est supérieur à 6.1, tu lance un WM_CLOSE en plus ou le ProcessMessages !