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