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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
initialization
  RegisterClass(TMonFils);
Et Dans mon programme principal je fais
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;
Il ya generation d'erreur parcequ'il n'a pas acces à la classe
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 ??????