Discussion :

[bvsud]

Bonjour à tous.

J'ai une procedure Quitter qui implémente ceci :

Code :

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

1
2
3
4
 
        Application.Terminate;
        Form1.Close;  // DEBUG parce que Terminate ne ferme pas tjrs !!
        Form1.CloseQuery;

Tout ça parce que cette f*** Application.Terminate ne veut pas fermer l'aplication, ni les autres instructions !

A part HALT; il n'y a aps une fa_on radicale de fermer une application ?

Merci

[Dr.Who]

1) première erreur : ne jamais appeler les variables de fiche dans leur classe elle même.

2) attention à l'ordre des déclarations, Close et CloseQuery ne s'appel pas dans cette ordre et encore moins les deux en même temps.

3) Application.Terminate appel les form.Close et les Form.Close declenche les CloseQuery.


pour fermer une application deux methodes seulement :

Code :

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

1
2
3
4
procedure TFormPrincipale.ButtonQuitterClick(Sender: TObject);
begin
  Close;
end;

ou encore

Code :

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

1
2
3
4
procedure TFormQuelconque.ButtonQuitterClick(Sender: TObject);
begin
  Application.MainForm.Close;
end;

si tu utilise l'evenement OnCloseQuery, tu doit signifier en fin d'evenement que CanClose soit égal à true.

Code :

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

1
2
3
4
5
6
procedure TFormQuelconque.FormQuelconqueCloseQuery(Sender: TObject; var CanClose: boolean);
begin
  CanClose := false;
  { traitement }
  CanClose := True;
end;

si ton programme ne ferme pas par ces méthodes, c'est que tu as un problème sous-jacent, avec un composant, un traitement, un thread, un objet dynamique mal libéré qui empêche la fermeture, un bug dans le source du projet, des manipulations hazardeuses avec les fiches et le tapplication, des erreurs grossières de programmation dans les fiches, des evenements mal déclarés.

pense également à nettoyer régulièrement le projet, fichier DCU, EXE, CFG, DOF, IdentCache, *.~*.

[bvsud]

1/ Ah ! Bon ? On ne doit jamais écrire Application.Terminate; ??

2/ Oui. Il y a des bugs : mais précisément, ce que je cherche, c'est une méthode radicale pour fermer une application. La procédure Quitter est appelée, et elle a beau contenir tout ça et même ton code, rien à faire, elle ne se ferme pas ! Si j'emploie halt; : ça fait des erreurs en mémoire ? Tout est parfaitement désalloué, j'ai vérifié.

C'est simplement un pb tout bête de procédures qui continuent leurs traitements malgré l'appel à Quitter(). Tout ça à cause de bcp d'événementiel.

[Andnotor]

Si j'emploie halt; : ça fait des erreurs en mémoire ? Tout est parfaitement désalloué, j'ai vérifié.

Si sous Seven, oui ! La mémoire est purgée à la fin du processus. Sinon, les fuites seront inévitables.

[Dr.Who]

oui il y'a beaucoup de chose qu'on ne doit pas faire sous delphi.

pourrait tu si possible nous montrer le code complet de ton programme.
on trouvera surement l'erreur dedans.

[bvsud]

AnBotOr => C'est bon à savoir.

Dr Who => Ca y est. ca marche. Et avec une fermeture propre du programme. J'ai corrigé. Effectivement, c'était programmé un peu lourd