Message "Application is not licensed to use this feature"
Salut à tous, lorsque j'éssaie d'accéder à une fonctions de mon paquets j'obtiens cette erreur:
application is not licensed to use this feature
Voici le code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
procedure initModule(infos: CModuleInitInfos);stdcall;
begin
showmessage('toto');
if Form1 = Nil Then
Form1 := TForm1.Create(infos.parent);
showmessage('toto2');
Form1.ParentWindow := infos.parent.Handle;
Form1.Top:=0;
Form1.left:=0;
Form1.Width:=infos.parent.Width;
Form1.Height:=infos.parent.Height;
showmessage('toto3');
Form1.Show;
Form1.UIBDatabase:=Form1.minfos.UIBDatabase;
showmessage('toto4');
end; |
j'ai le message toto, puis juste après une erreur 'application is not licensed to use this feature:s
Les autres fonctions de mon package semblent marcher :s
Quelqu'un aurait une idée?
J'ai cru voir qu'il pouvait s'agir d'une erreur si le package et le programme était compilés avec des compileurs de différentes éditions, mais j'ai recompilé les 2 sans succès :s.
Merci d'avance !