Discussion :

[looping]

bonjour,


lorsque l'on veut suprimer l'autocreate des form (qui se fait par defaut) et pouvoir créer une form juste avant de l'utiliser j'utilise ce code suivant:

Code :

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

1
2
3
Application.CreateForm(TForm3, Form3);
form3.ShowModal;
form3.Free;

est ce que c'est bon ou il manque quelque chose (form3.destroy,par exemple)

merci

[philnext]

Ne pas faire de free avant l'utilisation : ça libère ta TForm (ça la détruit).

[Cl@udius]

Salut

Voici un exemple classique de ce que je fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  Form3 := TForm3.Create(Application);
  with Form3 do begin
    try
      if ShowModal = mrOk then
         ...
      else
         ...
    finally
      Release;  // et non Free.
    end;
  end;

@+ Claudius

[Andry]

Salut
Moi je fais directement comme ceci dans le cas d'un showmodal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  with TForm3.Create(Application) do begin
    try
      if ShowModal = mrOk then
         ...
      else
         ...
    finally
      Release;  // et non Free.
    end;
  end;

A+

[Cl@udius]

+1 Andry

Dans le cas d'un ShowModal c'est tout à fait judicieux.

@+

[e-ric]

La méthode d'Andry est très concise mais il ne faut pas en abuser, elle va poser des problèmes en cas de débogage, l'objet TForm3 ainsi alloué est difficilement accessible en débogage.

D'autre part, il était préconise par Borland d'employer Release au lieu de Free dans le cas des fiches (descendantes de TForm).

Enfin l'emploi du bloc de protection de ressource try .. finally est plus que recommandé dans le cas de l'utilisation temporaire d'une ressource. Surtout quand la ressource est allouée et libérée au sein d'un même bloc. On entend par ressource la mémoire mais aussi toute entité qui est réservée à un usage donné et devant être libérée quand ce dernier prend fin, cela recouvre par exemple les fichiers.

En ce qui concerne les autocreate, il na faut pas oublier de faire du vide dans le fichier dpr quand cela s'impose, en supprimant la ligne Application.CreateForm(TForm3, Form3) ou en passant par le mécanisme dédié de l'IDE.

Par symétrie, la libération d'une fiche autocréée devrait être laissée à la VCL qui se charge de détruire les fiches autocréées en fin d'exécution. Ceci-dit rien n'interdit de les libérer explicitement, la VCL est suffisament bien conçue pour supporter ceci.

Cdlt

[aityahia]

ne pas oublier aussi le le paramètres Action de l'évènement OnClose;

Code :

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

Action := CaFree;

[e-ric]

ne pas oublier aussi le le paramètres Action de l'évènement OnClose;

Code :

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

Action := CaFree;

C'est absolument inutile dans ce que je viens de décrire...

cdlt

[aityahia]

C'est absolument inutile dans ce que je viens de décrire...

cdlt

évidement c'est une alternative d'ailleurs c'est mieux que de faire tous c'est tests sauf dans le cas ou on veut récupérer la valeur du ModalResult.

[mayloshi]

C'est absolument inutile dans ce que je viens de décrire...

cdlt

Oui. ça l'est plus quand on utilise des MDI.

[aityahia]

Oui. ça l'est plus quand on utilise des MDI.

pas forcément le CaFree libères la form après sa fermeture tous simplement, vous avez juste mal compris ce que je voulais dire .

[e-ric]

je sais mais dans notre discussion en cours la libération est faite explicitement par l'appelant.


bon week-end à tous

cdlt