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

[anapurna]

salut

...

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;

...

pour repondre a ta question la difference entre mon test est le tiens

mon test permet de ne pas fermer la fenetre si l'ecriture ce passe mal
dans ton cas dans tout les cas tu ferme et tu ne voi pas si l'enregistrement c'est mal passer

ensuite la modification du flagmodif n'est la que pour le fun dans ton cas comme dans le mien celui-ci ne sert a rien du fait que tu ferme ta fenetre

@+ 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