OOP ESCAPE handling on _SCREEN 1

[tamayok]

Hello!

I would like to assign a custom functionality to the ESCAPE key to apply only when there are no user-defined-forms/windows visible in the application. In other words, want to run a small procedure on _SCREEN.KeyPress.

I want to avoid using "ON KEY LABEL ESC" or "ON ESCAPE" commands; prefer to achieve this through OOP.

Can anyone help me with this?

Thanks!

Kenneth Tamayo
San Juan, Puerto Rico - USA

 

[bborissov]

What version of VFP?
In version 8 or later you can use BINDEVENT()

oScrKey = CREATEOBJECT("MyKeyHandler")
BINDEVENT(_SCREEN,"KeyPress",oScrKey,"KeyHandler",1)

DEFINE CLASS MyKeyHandler AS CUSTOM
     PROCEDURE KeyHandler(nKeyCode, nShift)
   *** Your code here
     ENDPROC
ENDDEFINE

In previous versions:
(this is not tested)

oScrKey = CREATEOBJECT("MyKeyHandler")

DEFINE CLASS MyKeyHandler AS CUSTOM
    MyScreen = _SCREEN
     PROCEDURE MyScreen.KeyPress(nKeyCode, nShift)
   *** Your code here
     ENDPROC
ENDDEFINE

Borislav Borissov

 

[tamayok]

Thanks Borislav,

YES! This is exactly what I needed, thanks...

I am using VFP 9.0, of course!

Kenneth