Discussion :

[looping]

Besoin de conseil pour la creation dynamique de "form"


Jusqu'a présent pour mes petits projets je mettais ce code.

Code :

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

1
2
3
4
 
Application.CreateForm(TForm50, Form50);
form50.ShowModal;
form50.free;

Mais aujourd'hui j'ai besoin:
- de faire du non modal
- de créer plusieur fois la même "Form"

J'ai trouvé plusieurs possibilités sur le net:

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
 
cas 1:
fic:=TForm50.create(application);
fic.show;
 
cas 2:
Form50 := TForm50.CreateForm(Self);
form50.show;
 
cas 3:
Form50 := TMyForm50.Create(nil) ;
form50.show;
 
cas 4:
Application.CreateForm(TForm50, Form50);
form50.show;

Quelles sont les différences entres ces 4 cas ?
J'ai vu aussi que suivant les cas c'est assez "pointu" pour libérer la mémoire sous peine d'erreur .

cordialememt

[tourlourou]

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
 
// cas 1: on crée une fiche dont on rend l'application propriétaire
// en passant comme Owner la variable Application lors de la création
// le propriétaire est chargé de libérer/détruire la fiche
// si on ne le fait pas avant, Application s'en chargera à la fin du programme
fic:=TForm50.create(application);
fic.show;
 
// cas 2: le propriétaire est l'objet pointé par Self dans une méthode
// duquel on crée la fiche (Form1 si création dans TForm1.Button1Click, par ex.)
Form50 := TForm50.CreateForm(Self);
form50.show;
 
// cas 3: on ne passe pas de Owner (nil) : on se charge de gérer la destruction
Form50 := TMyForm50.Create(nil) ;
form50.show;
 
// cas 4: fiche crée automatiquement par l'application (dans le dpr)
// équivalent de Form50:=TForm50.create(application);
// mais avant le Application.Run
Application.CreateForm(TForm50, Form50);
form50.show;

Si création dynamique, pas besoin de la syntaxe du cas 4.
Si tu gères le cycle création/libération, tu peux passer nil comme propriétaire (cas 3).

[ShaiLeTroll]

Je te conseille aussi la lecture de TForm.Create et TComponent.Create et surtout TComponent.Owner

Pour le cas nil, utilise OnClose et Action caFree
Evite de conserver une référence dessus, tu pourras toujours retrouver dans Screen.Forms[]

Attention aussi à la variable déclaré automatiquement comme form50, soit tu l'utilises comme Singleton et donc tu gère la libération manuellement, soit c'est un Multiton et il ne faut surtout pas l'utiliser (le mieux c'est même de la retirer, personnellement, c'est ce que je fais y compris pour les Modal)