Discussion :

[popo]

Bonjour,

Je suis en train de corriger certains bogues d'une vieille application MDI et notamment le fait que lorsque je quitte le programme en ayant une fenêtre ouverte j'ai une violation d'accès.

Je voulais résoudre le problème en utilisant ma procédure de fermeture de fenêtre tant que j'ai une fenêtre ouverte mais le programme tourne en boucle.

Code :

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

1
2
3
4
5
6
7
8
procedure TFrmStart.FichierQuitterClick(Sender: TObject);
begin
  while (FrmStart.MDIChildCount > 0) do
  begin
    FrmStart.ActiveMDIChild.Close;
  end;
  Application.Terminate;
end;

J'ai mis un point d'arret pour regarder ce qui se passe mais le count ne se décrémente pas, ce qui parait normal vu que la fenêtre ne se ferme pas.

Le code suivant fonctionne sur toutes mes fenêtres

Code :

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

1
2
3
4
5
6
procedure TFrmStart.FichierFermerClick(Sender: TObject);
begin
  If ((FrmStart.MDIChildCount)>0) then
    FrmStart.ActiveMDIChild.Close;
 
end;

Je ne comprend pas pourquoi lorsque je remplace la condition par une itération cela ne fonctionne plus.

La réponse est peut-être toute bête mais je ne la connais pas.
Si vous pouvez éclairer ma lanterne...

Merci

[pepi22]

Tout dépend de la façon à laquel vous vous y prenez pour créer vos forme...

Pour libérer correctement une fenêtre, rendez-vous dans l'évènement OnClose de la fenêtre à libéré.

Ajoutez tout simplement ceci

Code :

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

1
2
 
Action := caFree;

Quand vous allez fermer celle-ci, elle va être libéré entièrement.

[popo]

Tout dépend de la façon à laquel vous vous y prenez pour créer vos forme...

Pour libérer correctement une fenêtre, rendez-vous dans l'évènement OnClose de la fenêtre à libéré.

Ajoutez tout simplement ceci

Code :

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

1
2
 
Action := caFree;

Quand vous allez fermer celle-ci, elle va être libéré entièrement.

Ce n'est pas ça, toutes mes fenêtre contiennent un OnClose avec le code suivant

Code :

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

1
2
Action := caFree;
MaForm := nil;

[pepi22]

Code :

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

FrmStart.ActiveMDIChild.Close;

Je n'ai pas remarqué plus tôt mais si la fenêtre n'est pas active, elle ne sera jamais fermé

Vous devriez utilisé plutôt utiliser

Code :

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

FrmStart.MdiChildren[i].Close

Avec un boucle for qui débute à 0 et qui fini à FrmStart.MdiChildCount - 1

[Andnotor]

Ce que dit Pepi me semble correct.

Maintenant s'il y a une violation d'accès, c'est qu'il y a:

1. soit une double tentative de destruction. Par exemple une fois par le Owner et une fois manuellement.
2. Soit que la MDIForm à déjà été détruite.

Par exemple, si tu as mis un TMDIChild.Create(Application), la MDIForm risque bien d'être détruite avant les MDIChildren. Cela devrait de toute façon être remplacé par TMDIChild.Create(MDIForm) et tu n'aurais ainsi même plus besoin de t'occuper de leur destruction.

[popo]

Andnotor, en fait la violation d'accès n'est que le résultat du Ctrl+Alt+Suppr, j'aurais du le préciser, désolé.

pepi22, je ne comprend pas pourquoi je n'y est pas pensé moi même. Je devais complétement dans les vaps ce jour là. En effet, cela me parait être une excellente solution. Je la teste dès ce soir.