Je crée une fenetre de type TForm dynamiquement et j'aimerais intercepter le OnDestroy pour supprimer un thread qui se lance en meme temps que la creation de la fenetre.

Le problème c'est que lors de l'evennement OnDestroy il ne se passe rien, il n'affiche pas le showmessage qu'il y a dans l'evennement OnDestroy..


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
17
18
    

  procedure TNM_Form_principale.NM_act_Control_btn_ExitclickExecute  (Sender:Tobject);
   begin
     showmessage(sender.ClassName);
     // destruction du thread...
   end;
....
    NM_Control:=Tform.Create(NM_ScrollBox_globale);
    NM_Control.Tag:=NM_Nombre_Control;
    NM_Control.BorderStyle:=BsToolWindow;
    NM_Control.Width:=200;
    NM_Control.Height:=200;
    NM_Control.OnDestroy:=NM_act_Control_btn_ExitclickExecute;
    NM_Control.Parent:=NM_ScrollBox_globale;   // attantion
    NM_Control.Caption:='Controle '+inttostr(NM_Nombre_Control);
    NM_Control.Show;
    ....