Discussion :

[Lung]

En FMX, comment détecter si l'application a le focus ou pas ?

En VCL, il y a le composant TApplicationEvent, mais il n'a pas l'air d'exister en FMX.
J'ai trouvé cette page (http://docwiki.appmethod.com/appmeth...plicationEvent) qui m'a l'air de parler de ce que je cherche, mais pas moyen de trouver comment ça s'utilise.

Une idée ?

[Coudrak]

Je l'utilise comme ça (pour Android et iOS) :

D'abord, créer une fonction private avec l'évènement qui t'intéresse (BecameActive j'imagine) :

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
 
function TForm1.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
  case AAppEvent of
    TApplicationEvent.FinishedLaunching: ;
    TApplicationEvent.BecameActive: ;
    TApplicationEvent.WillBecomeInactive: ;
    TApplicationEvent.EnteredBackground: ;
    TApplicationEvent.WillBecomeForeground: ;
    TApplicationEvent.WillTerminate: ;
    TApplicationEvent.LowMemory: ;
    TApplicationEvent.TimeChange: ;
    TApplicationEvent.OpenURL: ;
  end;
  Result := True;
end;

Puis assigner cette fonction dans FormCreate par exemple :

Code :

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

1
2
3
4
5
6
 
var
  EventService: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(EventService)) then
    EventService.SetApplicationEventHandler(HandleAppEvent);

[Lung]

Ça ressemble bien à ce que j'aimerais , mais ça ne fonctionne pas (d'après l'aide) pour windows (et c'est mon unique cible, pour l'instant).
Donc comme le if retourne faux, la fonction n'est pas appelée.


C'est réellement pas du tout géré sous windows (et il faut chercher une autre solution), ou il faut lui demander gentiment ?

[Coudrak]

Alors tout simplement l'évènement OnActivate de la form, non ?

[Lung]

Alors tout simplement l'évènement OnActivate de la form, non ?

L'ennui, c'est qu'il se déclenche à la fois quand je change de fenêtre (à l'intérieur de l'application) et quand je réactive l'application.
Donc avec cet évènement, je ne peux pas identifier à coup sûr quand l'application perd ou récupère le focus.
Pas simple ...

[tourlourou]

La solution pourrait-elle être d'avoir un système centralisé de OnActivate/OnDeactivate pour chaque fiche de l'application, qui fasse +1/-1 à une variable globale et quand tu es à 0, c'est que ton appli n'a plus le focus ?

[EDIT] en y réfléchissant mieux, il m'apparaît que ça ne peut fonctionner comme ça...

[SergioMaster]

Bonjour,

moi j'ai d'abord pensé au TNotification mais je ne l'utilise que pour envoyer vers le centre de notification de windows et je ne sais pas si on peut envoyer la notification à un programme ? une sorte de push/get, je n'ai pas approfondi.

Comme ce n'est que windows, il y a peut être aussi la solution WMI à fouiller

[Cirec]

Bonjour,

si la cible c'est Windows peut être que GetActiveWidow fera l'affaire
dans un évènement OnTimer:

Code :

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

1
2
3
4
  if GetActiveWindow <> 0 then
    Caption := 'Activé'
  else
    Caption := 'Non Activé'

Si l'application à le focus elle renvoie le Handle de la fenêtre courante (MainForm, MessageBox ou autre Fiche)
sinon elle renvoie 0

j'ai testé ça devrait le faire (pour Windows)
ça combiné avec le "OnActivate" ...

Cordialement,

@+

[Lung]

Bon, alors vu que c'est géré pour toutes les autres plates-formes sauf windows, j'ai un collègue qui a modifié l'unité FMX.Platform.Win pour que ça marche aussi (c'est bien sale comme solution, mais bon, avec FMX faut toujours tout faire soi-même ).

Pour ceux que ça intéresse :
Mon code :

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
procedure TFrm_Main.FormCreate(Sender: TObject);
var
  EventService: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(EventService)) then
    EventService.SetApplicationEventHandler(HandleAppEvent);
 
...
 
function TFrm_Main.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
  Result := True;
  case AAppEvent of
    TApplicationEvent.BecameActive:
      begin
...
      end;
 
    TApplicationEvent.WillBecomeInactive:
      begin
...
      end;
  end;
end;

En gros, ses modifications dans FMX.Platform.Win :

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
procedure RegisterCorePlatformServices;
...
   TPlatformServices.Current.AddPlatformService(IFMXApplicationEventService, PlatformWin);
 
 
procedure UnregisterCorePlatformServices;
...
   TPlatformServices.Current.RemovePlatformService(IFMXApplicationEventService);
 
 
procedure TPlatformWin.SetApplicationEventHandler(AEventHandler: TApplicationEventHandler);
begin
  FOnApplicationEvent := AEventHandler;
end;
 
 
function TPlatformWin.HandleApplicationEvent(AEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
  Result := False;
 
  { Invoke application event}
  if Assigned(FOnApplicationEvent) then
    try
      Result := FOnApplicationEvent(AEvent, AContext);
    except
      Application.HandleException(Self);
    end;
end;
 
 
function WndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
...
        WM_ACTIVATEAPP:
          begin
            Result := DefWindowProc(hwnd, uMsg, wParam, lParam);
 
            if BOOL(wParam)
              then PlatformWin.HandleApplicationEvent(TApplicationEvent.BecameActive,nil)
              else PlatformWin.HandleApplicationEvent(TApplicationEvent.WillBecomeInactive,nil) ;
 
            if BOOL(wParam)
              then PlatformWin.RestoreApp;
          end;

Et ça marche.


pour votre aide.