I tryed a program with code below. and I did not see effect when I jumped to another applications as MS Word.


&&main program
CLEAR MEMORY
oScreenMethods = CREATEOBJECT("sm")
DO FORM tam && testform
READ EVENTS
***********************
PROCEDURE screenmethods.prg &&include in the main program
DEFINE CLASS sm AS CUSTOM
sm = _SCREEN
FUNCTION sm.LOSTFOCUS
WAIT WINDOW "LostFocus"
ENDFUNC

FUNCTION sm.GOTFOCUS
WAIT WINDOW "GotFocus"
ENDFUNC
ENDDEFINE