Dans le Unit de mon package FilssP, J'ai une class TMonFils auquel je voudrais acceder à partir de mon programme principal.
pour cela, dans le Unit, je recense la classe
Et Dans mon programme principal je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 initialization RegisterClass(TMonFils);
Il ya generation d'erreur parcequ'il n'a pas acces à la classe
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TForm1.Button1Click(Sender: TObject); Var TLaClass: TClass; LaClass: TForm; HHandle: THandle; begin HHandle := LoadPackage('FilssP.bpl'); TLaClass := GetClass('TMonFils'); MessageDlg('La Classe est:'+TLaClass.ClassName, mtInformation,[mbOk], 0); End;
ce qui signifie que classe recensée n'a pas pue être récupérée par la methode GetClass.
Je ne sais pas pourquoi ??????
Partager