Thread OnTerminate Procedure

Bonjour , j'ai crée un thread et une procedure onterminate ma fonction fonctionne dans une application standard par contre lorsque je l'utilise dans un active X, mon thread execute fonctionne mais pas mon onterminate. Je ne comprends pas pourquoi.
Trouvez le code d'essai que j'ai réalisé.

Code:

---

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

CONSTRUcTOR TESSAI.CREATE(SUSPENDED:BOOLEAN); begin FreeOnterminate:=true; inherited create(suspended); onterminate:= onterminateprocedure; end;   procedure TESSAI.Execute; begin   sleep(20000) ; i:=10; end;   procedure TESSAI.onterminateprocedure(sender :Tobject); begin i:=5000; end ;

---

Sans pouvoir expliquer ce qui ce passe, tu peux toujours
forcer cette fonctionnalitée de cette manière:

Code:

---

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

constructor TESSAI.CREATE(SUSPENDED:BOOLEAN); begin FreeOnterminate:=true; inherited create(suspended); OnTerminate:= OnTerminateProcedure; end;   procedure TESSAI.Execute; begin try sleep(20000) ; i:=10; finally DoTerminate; //Force l'execution de OnTerminate() end; end;

---

Il y a surment un context particulier du fait qu'on est dans un ActiveX...
mais ca, j'y connais pas grand chose...

Faut dire que OnTerminate est appelé avec la méthode Synchronize...
c'est peut-être elle qui fait des problèmes dans un ActiveX...
Si c'est le cas, le code que je viens de citer ne fonctionnera pas non plus:aie:

Il te reste alors la possibilité d'appeler directement ta procedure dans
la portion finally ce qui implique d'enlever l'assignation à OnTerminate.

Code:

---

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

constructor TESSAI.CREATE(SUSPENDED:BOOLEAN); begin FreeOnterminate:=true; inherited create(suspended); //OnTerminate:= OnTerminateProcedure; end;   procedure TESSAI.Execute; begin try sleep(20000) ; i:=10; finally OnTerminateProcedure(Self); //call directe la fonction sans synchronize end; end;

---

Je crois que le 2ème code devrait régler ton problème.