[D10] Comment détecter si l'application a le focus ou pas ?

Version imprimable

18/12/2017, 09h52
Lung

[D10] Comment détecter si l'application a le focus ou pas ?

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 ?
:hola:

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:

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:

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

18/12/2017, 16h01
Lung

Ça ressemble bien à ce que j'aimerais :bravo: , mais ça ne fonctionne pas (d'après l'aide) pour windows :calim2: (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 ?
18/12/2017, 16h42
Coudrak

Alors tout simplement l'évènement OnActivate de la form, non ?
19/12/2017, 08h17
Lung

Citation:

Envoyé par Coudrak

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 ... :koi:
19/12/2017, 09h31
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...
19/12/2017, 11h12
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
19/12/2017, 11h12
Cirec
Bonjour,

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

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,

@+

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 :evilred:).

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

Code:

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:

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. :yaisse2:

:merci: pour votre aide.