The following example demonstrates how to hook into _SCREEN methods. * * Use the following to modify _SCREEN methods: * * For VFP6 & 7: * _SCREEN.NewObject("oSH","ScreenHook","screenmethods.prg") * * For VFP3 & 5: * * SET PROCEDURE TO screenmethods ADDITIVE * _SCREEN.AddObject("oSH","ScreenHook") * * Any of the main VFP screen methods can be hooked into in this manner. * DEFINE CLASS ScreenHook AS CUSTOM oScr = _SCREEN PROCEDURE oScr.RESIZE() * * Code to handle the main VFP screen being resized * WAIT WINDOW NOWAIT TRANSFORM(THIS.WIDTH)+" "+TRANSFORM(THIS.HEIGHT) ENDPROC PROCEDURE oScr.moved() * * Code to handle the main VFP screen being resized * WAIT WINDOW NOWAIT "moved" ENDPROC PROCEDURE oScr.RIGHTCLICK * * Code to do a "shortcut" menu on main VFP screen RightClick * * DO ..\menus\testmenu.mpr ENDPROC * * Custom methods work, too. * PROCEDURE oScr.MyMethod WAIT WINDOW "my method fired!" ENDPROC ENDDEFINEAté mais.