Il s'agit par exemple de réagir dans le cas suivant:

 

- un programme Win Dev tourne

- par ALT-TAB on passe dans un autre programme

- on souhaite réagir quand le programme Win Dev perd le focus

 

Pour gérer ce type de traitement, il faut déclarer un événement sur le message Windows WM_ACTIVATEAPP (28)

 

Dans le cas ou _EVE.wParam vaut 0, le focus est perdu par l'application dans les autres cas, le focus est pris.

 

#Initialisation du projet

 

WM_ACTIVATEAPP  est un entier = 28

Evénement("PrisPert","*.", WM_ACTIVATEAPP)

 

 

#Procédure PrisPert

 

PROCEDURE PrisPert()

 

//Prise ou perte de focus.

SI _EVE.wParam = 0 ALORS

       Trace("Focus perdu par l'application")

SINON

       Trace("Focus  pris par l'application")

FIN