Discussion :

[HTML-Dev]

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 :

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
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 :

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
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

[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

[Jon Shannow]

Bonjour,

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

JS

[HTML-Dev]

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

Code :

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

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 :

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

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 :

Je clique sur le bouton. Le programme se ferme :

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 :

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
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 :

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

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.

[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

[HTML-Dev]

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 :

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

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

[Andnotor]

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

[Jipété]

Yep !

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 :

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
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 :

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

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 :

Même message dans les deux cas.

[HTML-Dev]

Merci pour vos réponses.

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:


Cordialement. Gilles

[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.

[HTML-Dev]

Utilise is ou InheritsFrom.

Corrigé. Merci.
Cordialement. Gilles