Discussion :

[cincap]

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

Code :

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

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

[Andnotor]

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 :

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

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;

[cincap]

@ 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

[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

[cincap]

Avec ceci, cela fonctionne :

Code :

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

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

[Linkin]

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

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

Code :

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

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;

[anapurna]

salut

je comprend pas trop l'utilité de

Code :

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

Ecriture(false)

soit tu fait un truc du genre

Code :

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

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

[Andnotor]

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

[Linkin]

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

[cincap]

@ tous,

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 :

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

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

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

Code :

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

1
2
3
4
 
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TFormexit, Formexit);
  Application.Run;

pour obtenir ceci :

Code :

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

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 !

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

[edam]

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)

[anapurna]

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

[edam]

je vais modifier ton code Andnotor,à mon gout

Code :

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

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;

[anapurna]

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

[edam]

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

[Andnotor]

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

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

Code :

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

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

[edam]

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

[Andnotor]

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

[cincap]

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 :

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

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;

le monsieur (peut être suis je une dame !) 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 :

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

[Linkin]

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