Discussion :

[Bleys]

Bonjour à tous,
Mon problème est simple :
J'ai une fenêtre, et je souhaite que si l'utilisateur ferme la fenêtre alors qu'il a modifié quelque chose, une petite boite de dialogue lui demande s'il souhaite enregistrer ses modifications ou pas. Jusque là rien de bien sorcier.
Sauf que tout en se passe pas comme prévu :
Premier cas : il n'a rien modifié, il ferme la fiche => pas de message de confirmation => ça c'est ok c'est normal
Deuxième cas : il a modifié quelque chose, une boite de dialogue s'affiche => il répond oui => et là bha ma fenêtre ne se ferme pas !!!

J'ai essayé de mettre CanClose à true etc mais rien y fait ... la seule solution que j'ai trouvé c'est à la fin de mon CloseQuery faire Close() mais cela ne me convient pas du tout (a moins de ne pas avoir le choix ?) :


Voici mon code (enfin la partie qui nous intéresse) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TfrmCalibrageCamera.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if (fModifie and (MessageDlg( 'Voulez-vous enregistrez ces nouveaux paramètres avant de fermer ?',
                               mtConfirmation,
                               [mbYes,mbNo],
                               0) = mrYes)) then    btEnregistrer.Click();
 
  ResetEvent(fEventPrisePhoto);
  delierComposantsCamera();
  // CanClose := true;   Ne change rien
  // Close;   Fonctionne mais a mon avis y'a mieux à faire
end;
 
 
procedure TfrmCalibrageCamera.btEnregistrerClick(Sender: TObject);
begin
  fModifie := false;
  if btAppliquer.Enabled then btAppliquer.Click();
  btAppliquer.Enabled := false;
  btEnregistrer.Enabled := false;
  fThreadsCamera[fNumSelect].EnregistrerParametresCamera('./camera'+IntToStr(fNumSelect)+'.ini');
end;
 
 
 
 
procedure TfrmCalibrageCamera.btAppliquerClick(Sender: TObject);
begin
  with fThreadsCamera[fNumSelect] do
  begin
    SetVideoFormat(StrToInt(cbVideoFormat.Text));
    SetVideoMode(StrToInt(cbVideoMode.Text));
    SetHauteur(StrToFloat(edHauteur.Text));
    SetFocale(StrToFloat(edFocale.Text));
    SetAngle(StrToFloat(edAngle.Text));
    SetXPositionCamera(seXPosition.Value);
    SetYPositionCamera(seYPosition.Value);
    SetTailleCamera(seXTaille.Value,seYTaille.Value);
    InitialiserCamera();
    ResetCamera();
  end; // with
  btAppliquer.Enabled := false;
end;

Voila comme ça vous avez tout ce qu'il faut



Merci à quiconque pourra m'aider

[JP.NUAGE]

Juste pour comprendre : qu'est ce qui te gêne dans le fait de faire un Close ?
Cela a-t-il des conséquences sur le reste de l'appli ?

[Bleys]

Non cela n'a aucune conséquence mais pour moi (après à vous de me dire si j'interprète mal le fonctionnement de CloseQuery) c'est un peu anormal de faire un Close dans un CloseQuery puisque l'action CloseQuery est elle même déclenché par Close ... En gros je tourne en rond dans l'appli ...

Non ?

[Pascal Jankowski]

Je viens de faire un test de mon côté avec les éléments que tu nous a donné et je ne rencontre pas le problème que tu as énoncé.

Nous as-tu donné tous les éléments ?

- La form en question est-elle embarquée dans un autre composant ?

- Quand tu débugges pas à pas ne passes-tu pas deux fois dans le onCloseQuery ?

- Ajoute quelque chose dans le OnClose, puis met lui un point d'arrêt puis débugge. Que se passe-t-il ?

J'aurais tendance à faire ces différents test car normalement le onCloseQuery fonctionne parfaitement.

Par ailleurs, j'ai une petite remarque pourquoi n'inclus tu pas le cancel dans le onCloseQuery comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
const
  CMESSAGE : string
      = 'Voulez-vous enregistrer ces nouveaux paramètres avant de fermer ?';
var
  reponse: word;
begin
  CanClose := True;
  if FModifie then
  begin
    reponse := MessageDlg(CMESSAGE,mtConfirmation, [mbYes,mbNo,mbCancel],0);
    case reponse of
      mrYes   : btEnregistrer.Click();
      mrCancel: CanClose := False;
    end;
  end;
end;

[Bleys]

- La form en question est-elle embarquée dans un autre composant ?

Merci pour cette phrase ça ma permis de trouver mon erreur :
ma forme n'est pas dans un nouveau composant mais elle est créé dynamiquement via showModal => j'avais oublié de donner un ModalResult à ma sortie ... Mais le comportement était tout de même bizarre puisque sans jamais en définir, j'arrivais à sortir ... Bref

Par ailleurs, j'ai une petite remarque pourquoi n'inclus tu pas le cancel dans le onCloseQuery comme cela:

Tout à fait bonne remarque ... C'est modifié




Merci pour ton aide