Voici mon problème, à la fermeture de ma fiche, j'ai deux instructions comme ceci :
Je me demandais si cette façon de faire était logique car je n'ai pas de bug apparent.
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;
Merci de votre attention.
@+,
Cincap
Partager