Discussion :

[Lung]

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é.

[ShaiLeTroll]

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

[Lung]

Je ne connaissais pas.

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

Code :

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

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 ?