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.
Problème: Si je passe 'FormTest' en paramètre, le GetClass renvoie nil et la procédure ne fait rien.
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 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);
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
Partager