Utilisation OnCloseQuery !

Voici mon problème, à la fermeture de ma fiche, j'ai deux instructions comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   If flagmodif then canclose := ecriture(false); //1   Application.CreateForm(TFormexit, Formexit); //2   if Formexit.Showmodal = mrOk then CanClose := true else CanClose := False;   end;

---

Je me demandais si cette façon de faire était logique car je n'ai pas de bug apparent.

Merci de votre attention.

@+,

Cincap

Disons que le premier CanClose ne sert à rien au retour de Ecriture puisque tu le réassignes plus bas.

Ne devrais-tu pas afficher TFormExit que si l'écriture à réussie?
De plus, FormExit n'est pas libérée si l'application n'est pas terminée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin If FlagModif then CanClose := Ecriture(false);   if CanClose then with TFormExit.Create(nil) do begin CanClose := ShowModal = mrOk; Free; end; end;

---

@ AndNotOr, j'ai une erreur à la fermeture de mon application, ma fiche exit contient aussi deux Tbuttons, un annuler et l'autre Ok avec respectivement modalresult mrnone et mrok.

@+,

Cincap

En fait je dois pouvoir dire oui ou non pour l'enregistrement et dans les deux cas, afficher la fiche de fermeture avec aussi le choix de dire annuler ou ok

@+,

Cincap

Avec ceci, cela fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9

Application.CreateForm(TFormexit, Formexit);   if Formexit.Showmodal = mrOk then begin   CanClose := true ; FlagModif := Ecriture(false) end   else CanClose := False;

---

Je vais attendre avant de mettre Résolu.

@+,

Cincap

La form n'est toujours pas libérée ;)

(je me permets de reprendre le code de Antnotor, pour le modifier)

Code:

---

1 2 3 4 5 6 7 8

If FlagModif then CanClose := Ecriture(false);   with TFormExit.Create(nil) do begin CanClose := (ShowModal = mrOk); Release; end;

---

salut

je comprend pas trop l'utilité de

Code:

---

Ecriture(false)

---

soit tu fait un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10

Application.CreateForm(TFormexit, Formexit);// on lance la fenetre de fermeture dans tout les cas if Formexit.Showmodal = mrOk then begin // Si on repond ok CanClose := Ecriture(false) ;// on valide les ecriture FlagModif := not(CanClose);// on inverse le flagModif //si on peut fermer cela veut dire qu'il n'y a plus de modif en cours sinon c'est toujours en modif end else CanClose := False;

---

@+ Phil

Si tu avais une erreur, c'est que tu faisais FormExit.Create et non TFormExit.Create.

Si ton code te convient, tant mieux. Personnellement, je coderais plutôt trois états:

- Sortie en sauvant,
- Sortie sans sauver,
- Annuler

PS: Free et Release, même combat ;)

Je suis d'accord, c'est juste une habitude de programmation ;)

@ tous,

Citation:

---

Si tu avais une erreur, c'est que tu faisais FormExit.Create et non TFormExit.Create.

---

Non je faisais ceci dans le onclick en ayant pris soin de le désactiver dans le projet :

Code:

---

1 2	Application.CreateForm(TFormexit, Formexit);//

---

ma fiche exit se trouve dans l'application et je l'ai donc remise dans le projet :

Code:

---

1 2 3 4

Application.CreateForm(TForm9, Form9); Application.CreateForm(TFormexit, Formexit); Application.Run;

---

pour obtenir ceci :

Code:

---

1 2 3 4 5 6 7

if Formexit.Showmodal = mrOk then begin   CanClose := true ; FlagModif := Ecriture(false) end   else CanClose := False;

---

Donc je ne vois pas pourquoi elle doit être encore libérée !

Citation:

---

Ecriture(false)

---

est une procédure d'enregistrement.

ceci dit, je vais tester le code d'anapurna et je vous tiens au courant.

Merci à tous de votre attention,

@+,

Cincap

Citation:

---

Envoyé par Andnotor

PS: Free et Release, même combat ;)

---

ô non, pas le même, il y a un grand débat autour ce sujet
free avec TForm.creat(nil),, release avec TForm.creat(application):aie:

salut

la grosse différence réside dans le fait que le release attend que tout les événements liés à la forme soit interprétés avant de faire un free

@+ Phil

je vais modifier ton code Andnotor,à mon gout :aie:

Citation:

---

Envoyé par Andnotor

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose :=FlagModif and Ecriture(false); if CanClose then with TFormExit.Create(application) do try CanClose := ShowModal = mrOk; finally Release; end; end;

---

---

:roll:

salut

le monsieur veut la fenêtre de confirmation de sortie a tous les coup
dans ta démarche elle n'apparais que si elle est nécessaire
c'est un choix de navigation

@+ Phil

oui sa c'est vrai, mais j'ai modifier simplement le code de andnotor ;)

@Edam
J'y ai jeté un coup d'oeil, mais long débat pour pas grand chose :aie:

Release est un Free asynchrone et ne fait strictement rien d'autre :

Code:

---

1 2 3 4 5 6 7 8 9 10

//Unit Forms; procedure TCustomForm.Release; begin PostMessage(Handle, CM_RELEASE, 0, 0); end;   procedure TCustomForm.CMRelease; begin Free; end;

---

Si un composant veut se libérer lui-même, oui il doit obligatoirement passer par un Release, sinon le retour de l'événement pointera sur une adresse devenue invalide !

Dans le cas qui nous concerne, il n'y a aucune différence puisque la destruction se fait depuis la fiche principale (ou du moins est externe à TFormExit)

Et je ne vois vraiment pas en quoi le propriétaire est impliqué dans ce processus 8O

j'ai dis simplement qu'il y a une différence celons, le type de création on utilisant(application ou nil),l'utilisation , ....
et pour le code, j'ai proposé le mien car c'est ce que j'utilise tout le temps :D:aie:

J'aimerais bien justement que tu m'expliques cette différence ;).

(PS: Et si j'étais toi, j'oublierais vite le lien que tu nous as fourni.)

Avant tout merci à tous de prendre part à ce topic.

@ anapurna, merci pour ta solution qui fonctionne exactement comme il se doit et aussi comme mon test (ma réponse à 11H23) peut être une différence qui ne se mesure pourtant pas mais que j'aimerai connaître si il y en a une.

Ton exemple :

Code:

---

1 2 3 4 5 6 7 8 9

if Formexit.Showmodal = mrOk then begin // Si on repond ok CanClose := Ecriture(false) ;// on valide les ecriture FlagModif := not(CanClose);// on inverse le flagModif //si on peut fermer cela veut dire qu'il n'y a plus de modif en cours sinon c'est toujours en modif end else CanClose := False;

---

Citation:

---

le monsieur (peut être suis je une dame !) :lol: veut la fenêtre de confirmation de sortie a tous les coup
dans ta démarche elle n'apparais que si elle est nécessaire
c'est un choix de navigation

---

Exactement, si je sors sans modification, ma fiche exit s'affiche et je peux annuler ou sortir.

Si je fais une modification ma fiche exit s'affiche et je peux annuler ou sortir puis après le messagedlg me permet de sauver ou non mais quand même de fermer l'application.

Pour :

Citation:

---

Application.CreateForm(TFormexit, Formexit);//

---

J'affirme que ma fiche se détruit à la fermeture de l'application comme n'importe quelle autre fiche.

Merci à tous, je marque "Résolu".

@+,

Cincap

P.s, je serai absent 8 jours, sud de la Turquie dès demain matin

Entièrement d'accord qu'elle se détruit si tu quittes ton application, mais pas dans le cas du CanClose := False;