Bonjour, J'ai un problème lié à la construction et destructions de composants dynamiquement.

Lorsque je veux détruire le composant crée dynamiquement self.destroy, il veut terminer la procédure appelée (passer sur le end; de la procédure qui appel la fermeture du composant).
Mais vu qu'il a été détruit il me crée une erreur d'accès à la mémoire...

Alors je sais que c'est possible car si je crée une form dynamiquement et que je la quitte avec la croix Windows [x] ça marche à tout les coups et sans erreurs.
Mais si je clique sur un bouton contenant formDynamique.close; il me ferme la form et me génère une erreur lorsqu'il revient sur le END; du bouton (qui a été supprimé en même temps que la form).

Nb: que je n'ai qu'un message d'erreur (impossible à récupérer avec un try vu sa position?) et que cela n'altère pas le fonctionnement du programme.

Toute proposition est bienvenue.

procedure TfrmMenu.bbtnCreationClick(Sender: TObject);
begin
frmCreation := TfrmCreation.Create(self); <-- 1
frmCreation.show;
self.Hide;
end;

procedure TfrmCreation.fraMenubbtnMenuClick(Sender: TObject);
begin
frmMenu.show;
self.destroy; // self.close;<-- 2 (si self.close) il passe par form.close et plante aussi en n°3
end;<-- 3 (Plantage)

OU

procedure TfrmCreation.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
frmMenu.show;
self.Destroy; <--2
end;<-- OK

MERCI d'avance

salut,

tu ne peux pas détruire un compo depuis lui-même (intérieur).

Pour detruire une form lors de sa fermeture, utilise OnClose. Set Action a caFree

et puis, pour la fermer (detruire) utilise "close"
(la lib vas détruire  de manière différée la form)

donc,

remplace
self.Destroy; <--2
par
action := caFree;

bon code !

Loda

PS: si tu utilise souvent la form, prefere la cacher plustot que la detruire.

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

bjr

Faire un close est suffisant s'il s'agit d'une TForm.

Pour un composant ajouté à une TForm, si tu le crèe associé à un container, il sera détruit automatiquement.
Exemple:

Etiquette := TLabel.create(Self) ; // si Self est la TForm

inutile de détruire Etiquette.

Merci beaucoup,

il me reste a faire pareil avec un groupbox contenant des composants... il faut que j'efface les composants a l'intérieur avec les memes contraintes, et donc les mêmes problèmes,   mais pour ce qui est de ma form ça marche nikel ;)

re,

désolé, mais les méthode utiliser pour détruire les forms ne peuvent pas (toute) s'appliquer au composant normaux.

essaye plutôt de revoir ta structure. y a sûrement moyen de faire un truc plus simple et moins problématique.

bon code,

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

avant de détruire un composante, tu dois mettre la valeur de sa propriété parent à nul, par après tu peux utiliser la méthode free.


Germain Malenfant, Developper, [ Lien ]