Rappel de FormCloseQuery () dans une procédure

Bonsoir,

Alors voilà mon soucis (qui je pense dois être simple à résoudre) :
Dans l'événement FormCloseQuery j'ai un traitement et je voudrai rappeler cet événement dans une autre procédure :

Voici le code concernant le FormCloseQuery :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure Tnom.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin lareponse:=MessageDlg('Voulez-vous enregistrer les modifications ?', mtConfirmation, mbYesNoCancel, 0); if lareponse=mrcancel then CanClose:=false else begin if lareponse = mryes then Sauve1Click(sender) CanClose:=true; end; end;

---

Voici le code de Quitter:

Code:

---

1 2 3 4

procedure Tnom.Button1Click(Sender: TObject); begin FormCloseQuery(...);// Je ne vois pas trop les paramètres à mettre ... :( end;

---

Merci d'avance
Cordialement Ero-Sennin

Salut!

Quel est le traitement que tu voudrais appeler au juste ? Toute la procédure ?

Si c'est le cas, tu n'as qu'à fermer la fenêtre non ?

Code:

---

1 2	self.Close();

---

Oua!

J'en reviens pas d'avoir été un si gros :boulet:

Oué, je voulais rappeller toute la procédure. Je n'y ai pas pensé mais c'était tout con! Comme quoi, on cherche vraiment pour rien des fois!

Merci slimjoe :aie: :mrgreen:

hehe ;)

Au plaisir :D