Fermer correctement une application

Version imprimable

Bonjour,
j'essaie de comprendre un petit plus finement le fonctionnement de mes fenêtres.
Dans un projet, je crée une unique TForm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, unit1
  { you can add units after this };
 
{$R *.res}
 
begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Cette Form contient un bouton pour fermer le programme.

Code:

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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
//Application.Terminate; ?
end;
 
end.

La méthode Close ferme la fenêtre du projet et le programme semble-t-il. L'ajout de "Application.Terminate" après "Close" est-il redondant dans cette configuration mono-fenêtre ?
Merci cordialement. Gilles

14/05/2024, 12h56
acaumes

Bonjour,

Pour autant que je sache, CLOSE ferme la fenêtre, SI celle ci est la fenêtre principale de ton programme (la première lancée du projet par Application.CreateForm et qui existe lors de Application.Run) il termine aussi l'application, SINON il ne fait que fermer la fenêtre.

Cordialement
14/05/2024, 13h34
Jon Shannow

Bonjour,

De mémoire, il me semble que Application.Terminate permet de passer un "ExitCode" récupérable dans un batch.

JS

2 pièce(s) jointe(s)

Bonjour,
merci pour vos réponses.
---
Je comprends la différence entre un Form.Close et un Application.Terminate.
Code:

1 2 3 4 5 6 7 8 procedure TForm1.Button1Click(Sender: TObject); begin Close; Application.MessageBox(PChar('Message' + LineEnding + 'Le programme va s''arrêter.'), 'Fin de programme', MB_OK or MB_ICONERROR); Application.Terminate; end;
Ce petit code le met en évidence.
---
Ce qui m'interpelle est ce qui se passe après le Form.Close si on ne place pas un Application.Terminate :
Code:

1 2 3 4 procedure TForm1.Button1Click(Sender: TObject); begin Close; end;
Dans ce cas (i.e. avec ce code), l'exécutable du projet (lzTerminate.exe) se ferme bien.
Je lance l'exécutable. Dans le gestionnaire de tâches :

Pièce jointe 654594
Je clique sur le bouton. Le programme se ferme :

Pièce jointe 654595

Dans les faits, je cherche une manière propre de créer une méthode CloseApplication(Sender:TObject; Mess: String) dans une unité séparée (uglobals.pas) qui me permettrait d'être sûr de quitter le programme d'où que j'appelle ce code. Et je ne comprends pas exactement le mécanisme de fermeture du programme.
J'ai fait une première tentative ainsi :
Code:

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 45 46 47 48 49 50 unit uglobals; {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, {added} Forms{Tform}, Controls{TwinControls}, Dialogs, LCLType{MessageBox}; procedure CloseApplication(Sender: TObject; Mess: string); implementation procedure CloseApplication(Sender: TObject; Mess: string); var aForm: TForm; function GetFormCurrent(Sender: TObject): TForm; var ParentClass: TWinControl; begin Result := nil; if Sender.ClassNameIs('TForm') then Result := TForm(Sender) else begin if Sender.ClassNameIs('TControl') then begin ParentClass := TControl(Sender).Parent; while not (ParentClass is TForm) do ParentClass := ParentClass.Parent; if ParentClass is TForm then Result := TForm(ParentClass); end; end; end; begin Application.MessageBox(PChar(Mess + LineEnding + 'Le programme va s''arrêter.'), 'Fin de programme', MB_OK or MB_ICONERROR); aForm := GetFormCurrent(Sender); if aForm <> Nil then aForm.Close; Application.Terminate; end; end.
Le problème que je rencontre est que si je l'appelle à partir d'une procédure de TForm1, l'Application.Terminate n'arrête pas immédiatement la boucle du programme par exemple dans un processus de TForm1 :
Code:

1 2 3 4 5 procedure TForm1.cbSALARIES_Change(Sender: TObject); begin CloseApplication(Sender, 'Erreur de transtypage du salarié.'); Showmessage('Oups'); end;
Le showmessage apparait alors que l'Application.Terminate a été déclenché. Donc j'essaie de comprendre le fonctionnement plus finement.

14/05/2024, 14h30
acaumes

Alors de mon point de vue, il te faut appeler "APPLICATION.TERMINATE" (avec un exit code) plutôt que CLOSE Parce que:

* Il te faudrait passer un pointeur sur l'objet fenêtre principale à ta procédure/fonction pour que tu puisse appeler CLOSE
* L'évènement ONCLOSEQUERY (appelé par CLOSE) peut dire que la fenêtre NE DOIT PAS être fermée

Alors que APPLICATION est un objet toujours présent

Citation:

Envoyé par acaumes

Alors de mon point de vue, il te faut appeler "APPLICATION.TERMINATE" (avec un exit code) plutôt que CLOSE Parce que:

* Il te faudrait passer un pointeur sur l'objet fenêtre principale à ta procédure/fonction pour que tu puisse appeler CLOSE
* L'évènement ONCLOSEQUERY (appelé par CLOSE) peut dire que la fenêtre NE DOIT PAS être fermée

Alors que APPLICATION est un objet toujours présent

Pour le close je n'ai pas de problème (enfin j'espère). Si "l'objet" dépend d'une Form, j'identifie la Form et la méthode CloseApplication déclenche la fermeture de la fenêtre. Ce qui m'interpelle, c'est le fonctionnement (l'incidence) de Application.Terminate dans Application.Run autrement dit l'exécution réelle de Application.Terminate dans la boucle (du thread principal sachant que c'est le seul)... Bon évidemment on peut agir ainsi :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.cbSALARIES_Change(Sender: TObject); begin if not LodDataSALARIES() then begin CloseApplication(Sender, 'Erreur d''accès au salarié.'); Exit; end; end; //[Suite du code...]
Mais cela n'explique pas le fonctionnement et comme j'ai plus de temps maintenant, j'essaye de comprendre un peu mieux.
Merci. Cordialement. Gilles

14/05/2024, 15h28
Andnotor

Il ne faut pas chercher trop loin, Application.Terminate fait sortir de la boucle Run en passant Terminated à vrai, rien de plus.

1 pièce(s) jointe(s)

Yep !

Citation:

Envoyé par Jon Shannow

De mémoire, il me semble que Application.Terminate permet de passer un "ExitCode" récupérable dans un batch.

tutafait !

Librement inspiré de https://stackoverflow.com/questions/...ms-application, j'ai suivi l'idée ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1; {$R *.res} begin ExitCode := 42; RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
Sous Linux, j'ai compilé, exécuté le prog depuis une console, l'ai fermé par la croix et ensuite, dans la console
Code:

1 2 echo $? // commande shell pour récupérer le code de sortie généré par l'appli 42
Mais ça fonctionne aussi en GUI avec Close ou avec Application.Terminate :
Pièce jointe 654601
Même message dans les deux cas.

14/05/2024, 17h57
Invité

2 pièce(s) jointe(s)

Merci pour vos réponses.

Citation:

Envoyé par Andnotor

Il ne faut pas chercher trop loin, Application.Terminate fait sortir de la boucle Run en passant Terminated à vrai, rien de plus.

La réponse doit être complétée avec ceci pour expliquer le comportement qui m'interpellait:
Pièce jointe 654610

Cordialement. Gilles
15/05/2024, 08h33
Andnotor

Close lance Application.Terminate si c'est la fiche principale mais ça n'a pas d'influence sur la pile d'appel en cours qui ira jusqu'à son terme, ce n'est pas un kill process. Si tu veux l'interrompre il faut toi-même tester Application.Terminated et quitter la(les) procédure(s) le cas échéant.

Quant aux features, j'interprète ça comme l'initialisation des propriétés et la liaison des événements à la lecture du lfm sans besoin de codage manuel.

Sinon GetFormCurrent renvoie toujours nil non ? ClassNameIs est le nom réel de la classe, tu n'auras jamais TForm ou TControl mais des dérivés. Utilise is ou InheritsFrom.
15/05/2024, 16h28
Invité

Citation:

Envoyé par Andnotor

Utilise is ou InheritsFrom.

Corrigé. Merci.
Cordialement. Gilles