[Delphi 10] Équivalent du TApplicationEvents en FMX pour capturer les exceptions

Dans la VCL, il y a le TApplicationEvents qui avec l'évènement OnException permet de capturer les exceptions qui surviennent dans toute l'application, et de pouvoir coder un comportement général qui va bien.

En FMX, le TApplicationEvents semble ne pas exister.
Que puis-je utiliser à la place pour capturer des exceptions dans toute l'application ?

Je précise que j'utilise des try..except un peu partout où c'est nécessaire, mais il arrive que des violations d'accès surviennent : le but est de ne pas afficher de message à l'écran, mais d'écrire dans un log et faire le traitement approprié.

Pourquoi pas tout simplement le FMX.Forms.TApplication.OnException

A toi de faire un gestionnaire commun pour toute l'application
Tu peux aussi gérer une liste de listener pour avoir un comportement plus proche lorsque l'on a plusieurs TApplicationEvents dans une seule application

Je ne connaissais pas. :ccool:

Voici ce que j'ai fait dans la fenêtre principale :

Code:

---

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

procedure TFrm_Main.FormCreate(Sender: TObject); begin ... Application.OnException := ApplicationException; ... end;   procedure TFrm_Main.ApplicationException(Sender: TObject; E: Exception); begin if E.ClassType = EAccessViolation then begin ... end; end;

---

Avec un point d'arrêt sur le if.
Même en générant volontairement une violation d'accès, je ne m'arrête pas sur le point d'arrêt.
J'ai oublié quelque chose ?

:koi: