[delphi] Détruire une TFrame

Détruire une TFrame [delphi] - Delphi/Pascal - Programmation

Marsh Posté le 03-08-2004 à 14:57:35    

Salut,
J'ai une application avec une fiche principale et je rentre dynamiquement des TFrame qu'en bon me chante et où je veux.
Viens le moment de détruire la TFrame et là j'ai tourné en rond un bon moment puis ô miracle ca marche.
Mais la raison est plus que magique.
 
J'ai donc fait une autre petite application pour illustrer le problème:
D'abord je plante le décor avec la fiche principale

Code :
  1. unit form_principale_unit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, cadre_01;
  9. type
  10.   Tform_pricipale = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure update_memo();
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Déclarations privées }
  18.   public
  19.     a_detruire: string;
  20.   end;
  22. var
  23.   form_pricipale: Tform_pricipale;
  25. implementation
  27. {$R *.dfm}
  29. procedure Tform_pricipale.Button1Click(Sender: TObject);
  30. var
  31.   temp: TFrame1;
  32. begin
  33.   temp := TFrame1.Create(self);
  34.   temp.Parent := self;
  35.   temp.Name :='TFrame1_'+inttostr(self.ComponentCount-1);
  36.   update_memo;
  37. end;
  39. procedure Tform_pricipale.update_memo;
  40. var
  41.   i:integer;
  42. begin
  43.   Memo1.Lines.Add('---------');
  44.   Memo1.Lines.Add(inttostr(self.ComponentCount));
  45.   for i:=0 to  self.ComponentCount-1 do
  46.     begin
  47.     Memo1.Lines.Add('++ '+self.Components[i].Name);
  48.     end;
  50. end;
  52. procedure Tform_pricipale.FormCreate(Sender: TObject);
  53. begin
  54.   update_memo;
  55. end;
  57. end.


 
 
Puis ma TFrame:

Code :
  1. unit cadre_01;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TFrame1 = class(TFrame)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     procedure Button1Click(Sender: TObject);
  14.   private
  15.     { Déclarations privées }
  16.   public
  17.     { Déclarations publiques }
  18.   end;
  20. implementation
  21. uses form_principale_unit;
  23. {$R *.dfm}
  25. procedure TFrame1.Button1Click(Sender: TObject);
  26. begin
  27.   form_pricipale.a_detruire := inttostr(self.ComponentIndex); // <-!!!!!
  28.     try
  29.       free
  30.     except
  31.        on EAccessViolation do begin end;
  32.     end;
  33.   form_pricipale.update_memo;
  34.   exit;
  35. end;
  37. end.


 
C'est ici que s'opère la magie:

Citation :


procedure TFrame1.Button1Click(Sender: TObject);
begin
  form_pricipale.a_detruire := inttostr(self.ComponentIndex);
    try
      free
    except
       on EAccessViolation do begin end;
    end;
  form_pricipale.update_memo;
  exit;
end;


Il suffit que je passe cette ligne "form_pricipale.a_detruire := inttostr(self.ComponentIndex);" en commentaire et hop une jolie erreur pointe le bout de son nez.
 
Si quelqu'un peut m'expliquer le pourquoi du comment ou peut me proposer une autre méthode pour détruire mes TFrame...
 
Merci


Message édité par tropicano le 03-08-2004 à 15:00:08
Reply

Marsh Posté le 03-08-2004 à 14:57:35   

Reply

Marsh Posté le 03-08-2004 à 15:17:24    

déjà la récupération de l'AccessViolation en douce c'est un signe de code crado :D
 
t'en fais quoi de ce a_detruire ? :heink:


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-08-2004 à 15:20:10    

Puis c'est normal que ça plante, tu ne peux pas détruire un objet dans le code d'un de ses objets (ici le clic d'un bouton de la frame).
C'est la form qui doit détruire la frame, la frame ne peut pas se détruire elle-même (seules les forms peuvent faire ça, grâce à leur méthode Release).
Que ça plante ou pas selon que tu mettes cette ligne en commentaire ou non ça ressemble plus à un coup de bol et au hasard des optimisations du compilateur.


Message édité par antp le 03-08-2004 à 15:20:48

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-08-2004 à 23:17:02    

Le coup du a_detruie c'est un pur hasard. J'avais tenté un truc du genre quand on appuie sur le bouton annuler on met dans a_detruire le nunero de composant de la frame.
Puis dans un un certain evenements de la fiche principale on regarde si la string est vide, si non on enleve les composants qui vont bien.
 
Et oui à ce moment là j'étais vraiment désespéré... :)
Je suis tout à fait conscient que là c'est pas du code joli, joli.
 
Je vais me repencher sur le probleme et tacher de trouver une autre solution

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed