Discussion :

[Papy214]

Bonjour

Quand on ajoute une TForm à un projet, on obtient une classe TFormxxx et Delphi génère le nom de variable pour la TForm en Formxxx.
TForm1 va donner la variable:

Code :

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

Form1: TForm1;

Est-ce qu'il y aurait un moyen de récupérer (et pointer sur) cette variable en ne connaissant que son nom ?
Typiquement, j'ai une TFormDevis et la variable associée FormDevis dans la même unité.
Depuis un autre emplacement du code, je veux créer une TFormDevis pas sur une variable au hasard mais bien sur la variable de l'unité qui définit TFormDevis.
A partir de TFormDevis, j'enlève le le T initial pour avoir le nom de la variable. Ca c'est le plus facile.
Après, comment je peux me servir de ce nom comme si je faisais

Code :

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

FormDevis := TFormDevis.Create(nil)

??

FormDevis étant juste une chaîne de caractères, ça coince un peu.

Je ne pense pas que ça soit possible mais bon, à tout hasard ....

[ShaiLeTroll]

La réponse est non sans le programmer et oui avec tout ce qui existe en Delphi
Personnellement, seule pour la MainForm je conserve cette variable, toutes les fenêtres secondaires c'est une variable locale ou un membre d'une autre Form.

Tu dois faire par exemple un TDictionnary<String, TForm> pour recenser l'instance avec un nom, c'est un registre
Tu peux aussi parcourir Screen.Forms et regarder le Name
Tu peux aussi définir un Owner comme Application et utiliser FindComponent
La liste d'idée est longue

[Papy214]

Tu peux aussi définir un Owner comme Application et utiliser FindComponent

ça c'est une super idée. Je teste ça.

Au passage, sur mon autre post, le RegisterClass qi ne fait rien n'est toujours pas résolu.
Bizarrement, j'ai testé en dehors de mon projet et ça fonctionne.
Comme dans le projet concerné le code qui ne fonctionne pas était dans une unité à part, j'ai testé en déplaçant ce code dans le mainform et bien c'est pareil.
A n'y rien comprendre. Peut-être une directive de compilation qui fout le bazar.

[Papy214]

Le Owner + Findcomponent ne fonctionne pas et c'est évident.
Le but est de créer une instance d'une TForm qui n'existe aps encore. FindComponent ne peut pas trouver ce qui n'est pas encore créee.
Screen.Forms ne fonctionne pas non plus à cause du même principe.

J'ai fini par utiliser un TDictionary pour retrouver facilement la variable représentant le classe.

Merci pour ces différentes idées.

[ShaiLeTroll]

Le but est de créer une instance d'une TForm qui n'existe aps encore.

Votre question parlait de trouver l'instance de la variable Form1, ce n'était pas évident de comprendre que vous bloquiez encore sur l'instanciation

un TDictionary d'un MetaClass, je n'avais pas assez explicité ma proposition de RegisterMe dans cette réponse à rtti et procédure de classe, j'ai tellement l'habitude ça de faire une MetaClass Registry puis Factory/Strategy pour instancier une classe selon un contexte, comme tout simplement instancier une fenêtre via son nom de classe

[Papy214]

J'aurais sans doute dû aller plus loin dans la description du problème.

Le développeur originel avait codé dans la mainform tout un tas de procédures du type

Code :

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

1
2
3
4
5
procedure Creation_FormClient;
begin
If Assigned(FormClient) = False then
  FormClient := TFormClient.Create(nil);
FormClient.Show;

Mais ça il y en a une cinquantaine du même style et pas toujours écrites de la même façon mais sur le même principe.
Pire, Toutes les autres TForm du projet faisaient référence à la mainform pour utiliser ces mêmes procédures.
J'ai donc extrait tout ça dans une unité à part pour éliminer tous les uses inutiles des unités concernées par ces procédures creation_xxxx.

L'avantage est que chaque TForm hérite dune TForm commune bien nommée TFormAncetre.

Mais, plutôt que réécrire chaque fois la même chose, je voulais faire une procédure Creation(FrmCls: TFormClass); et retrouver dans la procédure cette variable à initialiser.

Tout ça pour isoler toutes ces procédures et rationaliser le code ... J'aurais pu tout laisser en l'état mais je trouvais ça vraiment pas propre.

[ShaiLeTroll]

Dans ce cas TDictionary<TFormAncetreClass, TFormAncetre> pour créer un registre d'une instance par classe
Mais on peut via une TList<TFormAncetre> et faire une boucle de dessus pour voir si une instance existe déjà