delete Form créée dynamiquement

A partir d'une Form principale je cree un certain nombre de form dynamiquement que je stocke dans un tableau de pointeurs

Code:

---

1 2	Form [N]=new TForm(This);

---

Je fais sur ces Form un certain nombre de choses sans probleme
Mais pour les detruire apres usage?
elles doivent etres fermée a partir d'elles même avec un bouton Fermer
Button On Click Close();
Mais pour les detruire reellement
ou mettre le delete Form[N]
J'ai essaye de detourner l'evenement OnClose de mes fenetres

Code:

---

1 2	Form[N]OnClose=FermerFenetre;

---

Comme vu dans "Remarque de developpement "gestion de fenetres enfants de Gilles Louise
Mais si cela fonctionne tres bien en cliquant sur la petite croix du menu
Avec un bouton le programme va bien a la fonction "FermerFenetre"
Detruit la form Et veut retourner a une Form qui n'existe plus

Quelques tuyaux me rendraient bien service
MERCI

C'est plutôt un problème de conception que tu as...

Tu dois savoir quand tu n'as plus besoin d'une fenêtre et à ce moment là la détruire. Une fenêtre fermé ne veut pas dire qu'elle doit être forcement détruite.

En tout cas, tu ne peux pas les détruire dans l'évenement OnClose... sinon ça fait boom.

Salut !

Normalement il suffit de la fermer :

Code:

---

....->Close();

---

Ajouter dans la OnClose de la fenêtre (donc prévoir une méthode ad hoc) :

Code:

---

Action = caFree;

---

La fenêtre est libérée sans faire de delete.

Si besoin est, on peut rajouter un flag pour déterminer si la fenêtre
doit effectivement être libérée, cachée ou réduite... ici... ????
Il faut dans ce cas gérer Action (voir l'aide pour TForm::OnClose)

A plus !

Bonjour à tous

JP a dit

Citation:

---

A partir d'une Form principale je cree un certain nombre de form dynamiquement que je stocke dans un tableau de pointeurs

Code:

---

Form [N]=new TForm(This);

---

Je fais sur ces Form un certain nombre de choses sans probleme
Mais pour les detruire apres usage?
elles doivent etres fermée a partir d'elles même avec un bouton Fermer
Button On Click Close();
Mais pour les detruire reellement
ou mettre le delete Form[N]

---

Henderson a répondu :

Citation:

---

Normalement il suffit de la fermer :

Code:

---

....->Close();

---

La fenêtre est libérée sans faire de delete.

---

Doit-on comprendre que la fenêtre créée dynamiquement aura ainsi été
supprimée d'une TList dans laquelle on aura pu mettre son adresse, ou du tableau de pointeur de JP?

Apparement Action =cafree ne semble pas libere la memoire pour des fiches crées dynamiquement.(Controle de la memoire utiliséé du pc ne bsisse pas a chaque fermeture)
D'autre part si dans mon prog principal je refais un

Code:

---

1 2	Form[N]->Visible=true;

---

Elle réapparait bien et est toujours active.
En attendant a chaque fermeture de fiche je tiens a jour un tableau de fiches toujours utliles et je profite du passage dans un autre evenement de la fiche principale pour faire le delete des Forms inutiles et liberer des places dans mon tableau de pointeurs.(et de la memoire)
Si quelqu'un a une "solution plus propre" Je suis pret a tester toutes les idées
MERCI

Salut !

Pourtant chez moi ça fonctionne bien, dans la mesure où j'ai une violation d'accès
lorsque je tente d'ouvrir l'une des fenêtres qui a été supprimée.

Voici comment j'ai procédé :

Code:

---

1 2	TForm *AForms[2]; TSpeedButton *CloseButton;

---

Code:

---

1 2 3 4 5 6 7

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //Creation de deux fenêtres AForms[0] = Creerform(); AForms[1] = Creerform(); }

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

TForm* __fastcall TForm1::Creerform() { TForm *F = new TForm(Owner); F->SetBounds(10,10, 210, 210); F->OnClose = FormClose; CloseButton = new TSpeedButton(F); CloseButton->Parent = F; CloseButton->SetBounds(50,50, 80, 23); CloseButton->OnClick = CloseWindow; return F; }

---

Code:

---

1 2 3 4 5

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { //Ici je ne fais rien d'autre... Action = caFree; }

---

Chacun des Speedbuttons pour la libération de la fenêtre utilise la même méthode :

Code:

---

1 2 3 4 5

void __fastcall TForm1::CloseWindow(TObject *Sender) { TForm *F = (TForm *)((TSpeedButton*)Sender)->Owner; F->Close(); }

---

La form principale dispose de 2 Speedbuttons pour faire apparaître les deux forms créées :

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::SpeedButton1Click(TObject *Sender) { AForms[0]->Show(); }   void __fastcall TForm1::SpeedButton2Click(TObject *Sender) { AForms[1]->Show(); }

---

A plus !

Salut !

S'il y a quelque chose à faire suite à la fermeture, alors ça peut être fait dans la OnClose !

Pour le test, je n'ai rien fait allant dans ce sens pour être sûr de provoquer la violation
d'accès et montrer ainsi que la form est bien libérée.

En affectant NULL aux pointeurs, j'aurais eu cette même violation d'accès mais sur le NULL
et non pas suite à la libération de la form à cause d'une adresse vers un bloc mémoire invalide
du fait de sa libération.

A plus !

Effectivement avec Action=caFree cela marche OK
Hier soir j'avais du un peu me perdre dans mon code Mais ce matin tout est OK

Code:

---

1 2 3 4 5 6 7 8 9

Form[N]->OnClose=FermerFiche;       void __fastcall TForm1::FermerFiche(TObject *Sender,TCloseAction &Action= { Action=caFree; }

---

Et tout est Ok

Merci beaucoup
JP


Par contre des problemes pour trouver la balise [Resolu]
En bas a gauche est dit dans les regles du forum. Mais.........
Avec mes excuses.

Pour résolu... c'est fait !
A plus !