Même événement que FormCloseQuery mais pour une frame

Bonjour,

Je souhaiterais savoir si il existe une astuce pour avoir le même comportement que l'événement "FormCloseQuery" d'une form mais pour une frame ?

En gros, executer du code ou même annuler la fermeture de la frame suivant certaines conditions comme :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TfrmAction2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   if (...) then CanClose := false;   end;

---

Je ne sais pas si cela peut te convenir mais teste cette simple procédure ajoutée dans la définition de ta classe frame.

Code:

---

1 2 3 4 5 6

procedure TFrame2.doCloseFrame(Sender: TObject); begin if messageDLG('Refermer la frame ?',mtInformation,[mbyes,mbno],0) = mryes then self.Free; end;

---