Discussion :

[Merluco]

Bonjour,

Je suis novice dans la programation sous delphi et j'ai un probleme pour la destruction d'une Image cree dynamiquement et appartenant a un Panel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ImageCode2D:=TImage.Create(Form1);
ImageCode2D.Parent := Form1.Panel2;
Form1.Panel2.InsertComponent(ImageCode2D);

Lorsquer je rajoute ma derniere ligne (le insertComponent) et que je souhaite quitter mon application, il me balance un Access Violation a l'adresse 00000000. Quelqu'un aurait il une idée de l'origine de mon probleme?

[Balise [code] rajoutée par hachesse]
[Pensez-y vous-même à l'avenir. Merci.]

[Merluco]

j'ai essaye Form1.Panel2.Components[i].Free
J'ai essaye egalement Form1.Panel2.RemoveComponent Form1.Panel2.Components[i])

Dans les 2 cas, on a une destruction car ComponentCount est decremente.
Mais ca merde toujours lorsque je quitte ou que je passe trop de fois sur cette instruction

[Jean44]

Salut,

Pourquoi n'écris-tu pas plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ImageCode2D:=TImage.Create(Form1.Panel2);

Le paramètre de TImage.Create( AOwner : TComponent) est le proriétaire de TImage ( AOwner <> Parent ), c'est à dire celui qui responsable de la destruction de TImage.

Tu n'as pas besoin d'appeler InsertComponent, normalement la méthode Create fait un appel à AOwner.InsertComponent.

[Merluco]

Le probleme quand je fais ca c'est que je ne vois plus apparaitre mon image cree sur le Panel. En revanche du fait que j'ai enleve InsertComponent ca ne plante plus

[Arrown]

après cette ligne tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ImageCode2D.Parent := Form1.Panel2;

et là tu devrais la voir.

[Merluco]

Oui merci ca a l'air de marcher!

[MD Software]

Pense au tag [RESOLU]