[delphi] Détruire une TFrame

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [delphi] Détruire une TFrame

tropicano

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 :

unit form_principale_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cadre_01;
type
Tform_pricipale = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure update_memo();
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
a_detruire: string;
end;
var
form_pricipale: Tform_pricipale;
implementation
{$R *.dfm}
procedure Tform_pricipale.Button1Click(Sender: TObject);
var
temp: TFrame1;
begin
temp := TFrame1.Create(self);
temp.Parent := self;
temp.Name :='TFrame1_'+inttostr(self.ComponentCount-1);
update_memo;
end;
procedure Tform_pricipale.update_memo;
var
i:integer;
begin
Memo1.Lines.Add('---------');
Memo1.Lines.Add(inttostr(self.ComponentCount));
for i:=0 to self.ComponentCount-1 do
begin
Memo1.Lines.Add('++ '+self.Components[i].Name);
end;
end;
procedure Tform_pricipale.FormCreate(Sender: TObject);
begin
update_memo;
end;
end.

Puis ma TFrame:

Code :

unit cadre_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
implementation
uses form_principale_unit;
{$R *.dfm}
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;
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

Publicité

antp

Super Administrateur
Champion des excuses bidons

déjà la récupération de l'AccessViolation en douce c'est un signe de code crado

t'en fais quoi de ce a_detruire ? :heink:

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

antp

Super Administrateur
Champion des excuses bidons

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

tropicano

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

FORUM HardWare.fr

Programmation

Delphi/Pascal

[delphi] Détruire une TFrame

Sujets relatifs
Delphi 5 et TShellListView et TShellTreeView	[Delphi] Supprimer un fichier
[Delphi] créer un module pour apache ou PHP4	J'ai testé Delphi 8 rapidement ...
BDD et delphi 7	[Delphi] tableaux dynamiques & paramètres
[delphi 7] conversion de word en string	[delphi 7] convertisseur de code
Brute Force MD5 en Delphi, c'est possible ;)	[Delphi] Récupérer les infos affichées par une autre appli
Plus de sujets relatifs à : [delphi] Détruire une TFrame

Page générée en 0.047 secondes