Discussion :

[Papy214]

Bonjour

Est-ce qu'on passer un type de classe en paramètre d'une fonction ?
Le but est de pouvoir faire un truc comme ça:

Code :

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

1
2
3
4
5
6
 
procedure Appeler(myclassform);
begin
  with myclassform.Create do
    ShowModal;
end;

Papy ;

[ShaiLeTroll]

Tu avais un exemple sous les yeux depuis le début dans le DPR et le célèbre TApplication.CreateForm

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure Appeler(myclassform: TFormClass);
begin
  with myclassform.Create(nil) do
  try
    ShowModal();
  finally
    Free();
  end;
end;

TFormClass est un type prédéfini !

[Papy214]

Je n'étais pas allé voir ici, merci pour cette réponse hyper-rapide. :-)

[Paul TOTH]

tient...mais pourquoi donc la VCL passe-t-elle par un appel à newInstance()...je ne m'étais jamais posé la question mais le code de Shail suffit puisque le constructor invoque automatiquement newInstance...

[sjrd]

Le Create standard va chercher les ressources .dfm liées à la fiche pour l'initialiser. Dans TApplication on bypasse ceci avec NewInstance, et on fait ça plus tard. Je ne connais plus les détails, mais il y a une raison.

[ShaiLeTroll]

SJRD, tu ne confonds pas avec la différence entre Create et CreateNew ?
Create utilise CreateNew puis si hérite de TForm va lire la DFM
CreateNew créé un objet vierge sans DFM !

Si on lit le code de CreateForm, il semble que NewInstance permet de séparer les exceptions liées à l'allocation de l'objet de celle pour le chargement de la DFM (avec tous les délires liées à la MainForm)
le constructeur est appelé fait juste 8 lignes plus bas, ce n'est pas si tard que cela !
On se demande pourquoi ils n'ont pas plutôt appelé CreateNew puis InitInheritedComponent
J'ai toujours pensé qu'il manquait un TForm.LoadFormResource !!!

D'ailleurs ce code a été revu, la directive CLR étant de retour (curieux ce n'était pas du .NET ???),
En 2007, c'était seulement NewInstance
En XE2, c'est soit NewInstance, soit TComponentClass.Create en mode CLR !