creation de Form

Version imprimable

05/07/2007, 13h28
looping

creation de Form
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:

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
05/07/2007, 13h33
philnext

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

Salut

Voici un exemple classique de ce que je fais:

Code:

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

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

Code:

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+

05/07/2007, 14h19
Cl@udius

+1 Andry

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

@+
05/07/2007, 14h52
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
05/07/2007, 19h34
aityahia

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

Code:

Action := CaFree;
05/07/2007, 20h08
e-ric

Citation:

Envoyé par aityahia

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

Code:

Action := CaFree;

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

cdlt
05/07/2007, 22h20
aityahia

Citation:

Envoyé par e-ric

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.
06/07/2007, 12h34
mayloshi

Citation:

Envoyé par e-ric

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

cdlt

Oui. ça l'est plus quand on utilise des MDI.
06/07/2007, 12h58
aityahia

Citation:

Envoyé par mayloshi

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 8-) .
06/07/2007, 21h09
e-ric

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

bon week-end à tous

cdlt