Discussion :

[patrice@]

Bonjour à tous,

(Difficile de mettre un titre de discussion.)

J'ai une form créée dans le source (petit clin d’œil à SergioMaster qui m'a guidé dans le SplashScreen ce we)

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
 
uses
  Forms,
  Lettrage in 'Lettrage.pas' {Lettre},
  ...//...
 
{$R *.RES}
 
begin
  Application.Initialize;
  // Acceuil au lancement du logiciel
  Acceuil := TAcceuil.Create(nil);
  Acceuil.Show;
  Acceuil.Update;
  Application.Title := 'BLABLABLA';
  Application.CreateForm(TLettre, Lettre);
  ...//...
  Acceuil.free;
  Application.Run;
end.

J'appelle cette forme via un bouton sur une form principale

Code :

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

1
2
3
4
procedure TPrincipale.BitBtn6Click(Sender: TObject);
begin
    Lettre.Show;
end;

Je souhaite l'intancier via un Lettre.PopupMenu
J'ai donc le code suivant :

Code :

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

1
2
3
4
procedure TLettre.NewInstance1Click(Sender: TObject);
begin
     TLettre.Create(Application).Show;
end;

Et j'ai lu dans les tutos qu'il fallait mettre Action:=caFree dans le onClose

Code :

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

1
2
3
4
procedure TLettre.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

Ça fonctionne bien, sauf quand je rappelle ma form initiale par le clic sur le menu principal : là j'ai une bonne grosse erreur de violation d'accès.

J'imagine que le caFree a libéré la mémoire de la fiche "mère", donc il me faudrait Action:=caFree dans la TLettre "fille" mais pas le mettre chez la "mère"

Mais comment faire ?

[ShaiLeTroll]

Acceuil.free est en trop dans le DPR si cela passe par l'Action caFree dans un TAcceuil.FormClose
Non parce que votre sujet mélange Acceuil et Lettre, c'est confus.

Attention la référence Lettre peut être invalide après un Action caFree dans un TLettre.FormClose
D'ailleurs, Lettre ne reçoit pas le TLettre.Create donc probablement invalide et TLettre crée une autre TLettre ? curieux !

Action caFree c'est a utiliser avec parcimonie, mieux vaut maitriser le cycle de vie et les références, vous devriez revoir tout ça, faire explicitement vos Free et éviter toute Action caFree pour une fenêtre dont vous utiliser la référence.
Ah et surtout supprimer Lettre et Acceuil dans leur unité respective, utiliser des variables locales et Self

[patrice@]

Bonsoir Grand Maitre

Acceuil.free est en trop dans le DPR si cela passe par l'Action caFree dans un TAcceuil.FormClose

Acceuil est un SplashScreen, j'ai vu ça ce we avec SergioMaster + tutos de Paul TOTH qui répondais dans un post.
Donc je détruis acceuil juste avant le run.
Ce n'est pas comme ça qu'il faut faire ?

Attention la référence Lettre peut être invalide après un Action caFree dans un TLettre.FormClose

Oui c'est ce qu'il me semble, c'est le caFree qui met le basard.

D'ailleurs, Lettre ne reçoit pas le TLettre.Create donc probablement invalide et TLettre crée une autre TLettre ? curieux !

Heuu, si, il le reçoit, non ? Ce n'est pas ça ? dans le source

Code :

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

:16: Application.CreateForm(TLettre, Lettre);

TLettre crée une autre TLettre ?

Heuu, c'est comme ça que j'ai compris les divers post que j'ai lu pour intancier une fiche complète Ce n'est pas comme ça qu'il faut faire ?

La création se passe bien, je n'ai pas repéré de soucis. A priori il semblerait que ce soit le caFree de la fiche TLettre. Mais si je ne le mets pas, que j'intance la fiche, et que je détruit la ou les fiches filles créées, elle ne vont pas rester en memoire quelque part ? J'ai lu qu'il ne fallait surtout pas oublier de mettre caFree pour être sur du coup mais uniquement dans les fiches filles.

Mais alors, comment intancier une fiche complète et lui rajouter un caFree ou alors être sur qu'elle libère les ressources lorsqu'on la ferme ?
Je viens de voir dans des discutions self.free ou self.release ou FreeAnNil(self), mais il semblerait que les avis soient partagés, certains disent qu'il faut utiliser ceci, d'autre celà, et au milieu, je ne comprends plus rien ...

[SergioMaster]

Bonjour,

J'ai une form créée dans le source (petit clin d’œil à SergioMaster qui m'a guidé dans le SplashScreen ce we)

Pas assez bien apparament, ou alors j'ai merdé quelque part dans mon tutoriel.

Donc je détruis acceuil juste avant le run.

c'est plus ou moins ce que j'ai indiqué, mais comme elle est détruite et libérée pas de cafree nécessaire, c'est même le contraire.

Ça fonctionne bien, sauf quand je rappelle ma form initiale par le clic sur le menu principal : là j'ai une bonne grosse erreur de violation d'accès.

Là je ne suis pas, la forme initiale acceuil ou TLettre ?

J'imagine que le caFree a libéré la mémoire de la fiche "mère",

cette fiche mère c'est ? A priori une forme principale donc, la seule qui ne devrait pas être détruite à sa fermeture (bizarre, fermer la fenêtre principale ferme le programme normalement)

donc il me faudrait Action:=caFree dans la TLettre "fille" mais pas le mettre chez la "mère"

je ne comprend pas Tlettre appelle d'autres Tlettre ? Comment ?

Mais comment faire ?

au pire en ne faisant cafree que si la fenêtre n'a pas de parent.

Code :

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

if not assigned(Parent)  then Action:=cafree; // non testé

Déjà il faudrait savoir s'il s'agit d'un programme MDI ou pas

Mais alors, comment intancier une fiche complète et lui rajouter un caFree ou alors être sur qu'elle libère les ressources lorsqu'on la ferme ?

C'est un choix, soit on utulise un bloc Try Finally

Code :

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

1
2
3
4
5
6
7
8
var aLettre : TLettre;
begin
aLettre:=Tlettre.Create(self); 
Try
   aLettre.Show;
Finally
   aLettre.Free; 
end;

Soit en utilisant action := cafree du OnClose

Je viens de voir dans des discussions self.free ou self.release ou FreeAndNil(self), mais il semblerait que les avis soient partagés

et il manque DisposeOf et Destroy
FreeAndNil serait (or gestion mémoire ARC) le mieux AMHA puisque dans ce cas on est sur que le pointeur sur la forme détruite ne sera pas/plus assigné.

Mais, il faut être curieux quand on a les sources et regarder ce que font ces diverses instructions per exemple :
- DisposeOf vérifie si la gestion ARC est active dans ce cas c'est cette gestion qui est utilisée pour libérer la mémoire, sinon appelle Free.
- Free appelle Destroy (si ce n'est pas du ARC)
- FreeAndNil, copie l'objet (forme ou autre) dans un objet temporaire, met le pointeur de l'objet à nil et fait un free de l'objet
- Release me semble le pire, utilisant un postmessage ne garanti en rien que le pointeur soit détruit (faut faire confiance à Windows)

[patrice@]

Bonjour SergioMaster,

Pas assez bien apparemment, ou alors j'ai merdé quelque part dans mon tutoriel.

non non ... c'est l'élève qui à merdé mais où ? il a l'air de bien fonctionner mon splashScreen

La méthode employée est celle du SDI, donc des fenêtres flottantes.

Ok ok, je me suis très mal exprimé car il y a 2 choses bien différentes qui sont mélangées
On oublie la fiche Acceuil qui ne pose aucun soucis en soit (je ne suis pas contre un correctif de ma méthode si elle ne semble pas bonne mais mon questionnement n'est pas sur le SplashScreen)

En reprenant ton tuto "Techniques d'enchainement de formes" et d'autres réponses trouvées, je me suis essayé (c'est ma 1ere fois, et comme toutes les 1eres fois ...) à l’instanciation de fiche sur une fiche qui est créé dans le source.

Reprenons : je créé Lettre dans le source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  Forms,
  Lettrage in 'Lettrage.pas' {Lettre},
  ...//...
 
{$R *.RES}
 
begin
  Application.Initialize;
  Application.CreateForm(TLettre, Lettre);
  ...//...
  Application.Run;
end.

Dans cette fiche j'ai un bouton pour intancier cette fiche

Code :

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

1
2
3
4
procedure TLettre.NewInstance1Click(Sender: TObject);
begin
     TLettre.Create(Application).Show;
end;

Donc elle se duplique elle même.

Pour info, avant de lire les tutos, j"avais une autre procédure qui passait par une variable FormClone

Code :

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

1
2
3
4
5
6
7
procedure TLettre.NewInstance1Click(Sender: TObject);
Var
   FormClone: TLettre;
begin
   Application.CreateForm(TLettre, FormClone);
   FormClone.visible := true
end;

Peut être est-ce mieux de faire comme la 2ème procédure ?
Je laisse la possibilité à l'utilisateur de créer autant de clone qu'il veut.

Ce qui m'a alerté c'est quand je lis qu'il ne faut surtout pas oublier de libérer les fiches créées d'où l'emploi du caFree dans le onClose.

Ma question est donc : suis je obligé de mettre une commande quelconque dans un évènement des fiches créées dynamiquement pour être sur de libérer les ressources ou est ce que je n'ai pas besoin car elle se libère naturellement à leur fermeture ?

[SergioMaster]

La méthode employée est celle du SDI, donc des fenêtres flottantes.

celle dont je suis le moins fan !

Ma question est donc : suis je obligé de mettre une commande quelconque dans un évènement des fiches créées dynamiquement pour être sur de libérer les ressources ou est ce que je n'ai pas besoin car elle se libère naturellement à leur fermeture ?

un ReportMemoryLeaksOnShutdown serait le juge suprême
mettre dans le projet

Code :

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

ReportMemoryLeaksOnShutDown:=True;

[patrice@]

celle dont je suis le moins fan !

Oui, j'ai lu ... mais pour le moment je ne me sent pas au niveau du docking

Entre les 2 méthodes de clonage de fiche, y en a t-il une meilleure que l'autre ?

Code :

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

1
2
3
4
5
6
7
procedure TLettre.NewInstance1Click(Sender: TObject);
Var
   FormClone: TLettre;
begin
   Application.CreateForm(TLettre, FormClone).Show;
   FormClone.visible := true
end;

ou :

Code :

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

1
2
3
procedure TLettre.NewInstance1Click(Sender: TObject);
   TLettre.Create(Application).Show;
end;

Ou une autre méthode peut être ?

[SergioMaster]

Oui, j'ai lu ... mais pour le moment je ne me sent pas au niveau du docking

entre SDI et Docking il y a MDI

Entre les 2 méthodes de clonage de fiche, y en a t-il une meilleure que l'autre ?
Ou une autre méthode peut être ?

Ben déjà dans la première je ne suis pas sur que FormClone.visible soit nécessaire
Ensuite je serais plus partant pour englober dans un bloc try except end (juste au cas où)

[anapurna]

salut

il existe un tuto ici

PS : De plus il est préférable pour le form d'utiliser "Release" plutôt que "free"
afin de laisser finir tout les événements avant de fermer la fenêtre complètement


PS2: Perso j'utilise

Code :

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

Application.CreateForm(...);

que dans le fichier DPR
je trouve bien plus simple de faire

Code :

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

TFrm.Create(Self).show

voici un code permettant l'ouverture que d'une seul fenêtre en MDI de même type

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
 
procedure TMainFrm.ActionFrmClick(Sender: TObject);
var
  count : integer;
  i : integer;
  found : boolean;
begin
  count := Pred(MDIChildCount);
  found := False;
  if   MDIChildCount > 0 Then
  begin
    i := 0;
    while (i <= count) and Not(found) do
    begin
       if  MDIChildren[i] is TActionFrm Then
       begin
         found := true;
         TActionFrm(MDIChildren[i]).Show;
       end;
      Application.ProcessMessages;
      inc(i);
    end;
  end;
  if not(found) Then
    TActionFrm.Create(Self).Show;
end;

[patrice@]

Merci Anapurna,
Nous parlons bien de ce tuto avec SergioMaster (c'est lui qui l'a fait )

TFrm.Create(Self).show

begin
TLettre.Create(Self).Show
end;

Ok, ShaiLeTroll parlait d'utiliser Self, peut être faisait il allusion à ça. Ok, c'est noté.

entre SDI et Docking il y a MDI

Du coup là c'est moi qui n'aime pas, à l'heure des écrans multiples se retrouver coincé dans une fenêtre ...
Mais je vais faire un gestionnaire de fenêtre histoire de les retrouver si elles sont cachée ... je verrais ça plus tard

PS : De plus il est préférable pour le form d'utiliser "Release" plutôt que "free"

Ok pour le Release Anapurna, à mettre dans le onClose ?
Aie, j'ai mis Self.Release dans le onclose de ma fiche mère, du coup, quand je la ferme (la fiche mère) toutes les filles close aussi!
Bon ... je ne mets rien ...

Ben déjà dans la première je ne suis pas sur que FormClone.visible soit nécessaire
Ensuite je serais plus partant pour englober dans un bloc try except end (juste au cas où)

Oui j'ai vu l'erreur, mais je ne pouvais plus modifier mon message ... le application.createForm (...).Show ne fonctionne pas, .Show à enlever.
Et ça ne fait pas de mal le try except end

Punaise, pas simple de comprendre le clonage des fiches. Il n'y a pas un tuto quelque part qui reprend tout ça ??? (cherché, pas trouvé)

[ShaiLeTroll]

Ok, ShaiLeTroll parlait d'utiliser Self, peut être faisait il allusion à ça. Ok, c'est noté.

Pas de tout, je parlais de bannir les variables globales

Personnellement, il y a tellement de proposition contradictoire dans ce sujet, cela mélange SDI et MDI, cela ne prend en compte le besoin d'avoir une référence ou non sur les fenêtres.

PS : De plus il est préférable pour le form d'utiliser "Release" plutôt que "free"
afin de laisser finir tout les événements avant de fermer la fenêtre complètement

Cela dépend ce que l'on fait
Si la libération est faite par un gestionnaire de la fenêtre lui même, Release est nécessaire mais franchement c'est un cas rare
Si la libération est géré par un Owner c'est inutile
Si la libération est géré par l'appelant (une variable membre du parent), c'est inutile



Arrêtez de proposer tout et n'importe quoi !
La première question est "quelle est le cycle de vie des fenêtres et le besoin de référencement des instances ?"

[anapurna]

salut

regarde le code 'release' du 'tform' celui-ci fait un free au final mais laisse tout les événement en cours se terminer
afin d’éviter un accès a un element précédemment détruit

Code :

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

1
2
3
4
5
 
procedure TCustomForm.CMRelease;
...
  Free;
...

Code :

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

1
2
3
4
5
 
procedure TCustomForm.Release;
...
  PostMessage(Handle, CM_RELEASE, 0, 0);
...

d’ailleurs l'option CAFree du CloseAction lui même fait un release
voici deux exemple assez parlant

Code :

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

1
2
3
4
5
6
7
 
procedure TCustomForm.CloseModal;
....
    case CloseAction of
      ....
      caFree: Release;
    end;

Code :

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

1
2
3
4
5
6
7
 
procedure TCustomForm.Close;
...
  if CloseAction <> caNone then
   ...    
  else Release;
...

ShaiLeTroll je suis d'accord avec toi c'est des cas très particulier
mais plutôt que faire un free (dans le cas ou tu dois le faire) ... il est préférable de faire un "release" c'est tout ce que j'ai dit

Ok pour le Release Anapurna, à mettre dans le onClose ?
Aie, j'ai mis Self.Release dans le onclose de ma fiche mère, du coup, quand je la ferme (la fiche mère) toutes les filles close aussi!
Bon ... je ne mets rien ...

non malheureux dans le

Code :

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

onFormClose

juste un

Code :

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

Action := CaFree ;

[Andnotor]

Application.CreateForm n'a d'utilité que pour la toute première fiche créée puisque cette méthode fixe la fiche principale. Par la suite, TMyForm.Create suffit.

quand je la ferme (la fiche mère) toutes les filles close aussi!

Normal, fermer la fiche principale équivaut à terminer l'application


Pour arriver à tes fins, il te faut une première fiche (qui peut être masquée) qui servira de gestionnaire pour les fiches secondaires (TLettre) et qui ne se terminera que lorsque la dernière TLettre sera fermée.


@Anapurna

Le problème est la pile d'appel : une méthode de l'objet appelle une autre méthode du même objet et ainsi de suite. Au retour de ces méthodes et si l'objet a été libéré (donc la pile et le tas), tous les pointeurs sont dans les choux conduisant presque inévitablement à des VA. Release qui est une libération asynchrone permet de palier ce problème et est obligatoire lorsqu'un objet veut se libérer lui-même (ou libérer l'un de ses parents ce qui revient au même). Dans tous les autres cas, il n'a aucun avantage sur Free (mais ne dérange pas).

Perso je n'utilise jamais caFree qui nous fait perdre la maitrise des éléments.