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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement