Discussion :

[looping]

Bonjour,

J'aurais besoin d'une précision sur les fermeture de Fiche non Modal:

je ferme et libère la Form 2 de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Sender = Form2 then Action:=caFree;
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
if Sender=Form2 then Form2:=nil;
end;

Est ce que le code dans FormDestroy est utile ?

L'appel a été fait comme ceci depuis Form1

Code :

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

1
2
3
4
5
6
 
  form2:=Tform2.Create(Self);
  try
  form2.Show;
  except
  FreeAndNil(form2);

Cordialement

[popo]

Si tu mets Action:=caFree, la fenêtre sera automatiquement libérée après la fermeture.
caFree : libère complètement la fiche (Destroy), mémoire rendue.
caHide : cache la fiche, elle reste créée en mémoire.
caMinimize : la fiche est minimisée.
caNone : ignore la fermeture (la fiche reste ouverte).

Pourquoi ces [if Sender = Form2] ?

[Lung]

Dans l'appel, ce n'est pas except, mais finally qu'il faudrait mettre.

[ShaiLeTroll]

Code :

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

1
2
3
4
5
  form2:=Tform2.Create(Self);
  try
  form2.Show;
  except
  FreeAndNil(form2);

cela semble inspiré de sa variante modale évoquée par Lung mais il ne faut pas confondre les deux.

Code :

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

1
2
3
4
5
  form2 := Tform2.Create(nil);
  try
  form2.ShowModal;
  finally
    FreeAndNil(form2);

Il y a très peu de chance qu'une exception se produise sur le Show (en dehors d'une erreur de Focus peut-être), avec un Owner passé au Create, la libération est implicite.

Il ne faut surtout pas de try finally sur un Show car cela fermera la fenêtre aussitôt ouverte, c'est ballot !




En réalité, il faut se poser la question suivante "Que fais-je de form2 ?"

form2 est une variable locale, inutile de s'encombrer donc Create(nil) + caFreeform2 est une variable privée de form1, Create(form1 if not Assigned + caNone pour maitriser la durée de vie
form2 est une variable globale, Create(Application) si longue durée de vie ou Create(nil) + caFree + ref à nil si courte.


A mon avis Form2 est une variable globale et c'est à 99% un mauvais choix !
Même si l'affectation à nil dans le OnDestroy est plutôt bien vu pour gérer ce cas.