Discussion :

[J P]

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

Code :

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

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 :

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

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

[slylafone]

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.

[henderson]

Salut !

Normalement il suffit de la fermer :

Code :

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

....->Close();

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

Code :

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

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 !

[emmental]

Bonjour à tous

JP a dit

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

Code :

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

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 :

Normalement il suffit de la fermer :

Code :

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

....->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?

[J P]

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 :

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

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

[henderson]

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 :

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

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

Code :

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

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 :

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

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 :

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

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 :

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

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 :

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

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 !

[henderson]

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 !

[J P]

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 :

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

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.

[henderson]

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