RegisterClass sans effet

Bonjour

Je voulais faire une procédure tout simple de création de TForm par nom de class mais y'a un truc qui coince.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure Creer(FrmName: string); overload; var fc: TFormClass; S: string; begin S := 'T' + FrmName; if GetClass(S) <> nil then begin fc := TFormClass(FindClass('T' + FrmName)); Creer(fc); end; end;   initialization   RegisterClass(TFormTest);

---

Problème: Si je passe 'FormTest' en paramètre, le GetClass renvoie nil et la procédure ne fait rien.

J'ai loupé quoi ?

Je précise que l'unité qui définit TFormTest est bien dans les uses de l'unité qui implémente ce code

Sinon cela se simplifie

Code:

---

1 2 3 4 5 6 7 8

procedure Creer(const FrmName: string); overload; var fc: TFormClass; begin fc := TFormClass(GetClass('T' + FrmName)); if fc <> nil then Creer(fc); end;

---

le RegisterClass est dans initialization de quelle unité ? celle de Creer ou celle de TFormTest ?
TFormTest n'est pas éliminé par le lieur ?

Initialization est dans l'unité où se trouve la procédure Creer.

J'ai vérifié, on passe bien dedans au lancement du programme.

La TFormTest est nommée comme ça juste ici. Dans le projet, c'est une classe TFormClient utilisée plusieurs fois.
Elle est donc connue et enregistrée.

D'ailleurs, si dans la même fonction je fais un TFormClient.Create(nil) tout se passe bien.
C'est juste que le GetClass ne trouve pas la classe malgré le RegisterClass.

Par contre, cette TFormClient hérite d'une feuille ancêtre. Est-ce que ça peut jouer ?