Ric,

Oops... highlighting didn't work on last message I sent. And then after that, when I was going to re-create this reply, I accidentally hit the send button before I did anything (sorry folks). Anyway, here's the message again, with highlighting...

I'm trying to get this to work. So far, I've just started with the first baby-step, which is for the MyForm.KeyPress Event to display a MESSAGEBOX if it is working. However, it's not working. Here's the code I have so far:

LPARAMETERS nKeyCode, nShiftAltCtrl

* IF on an active object, and the object is the grid
IF ;
TYPE("ThisForm.ActiveControl") == "O" .AND. ;
UPPER(ThisForm.ActiveControl.BaseClass) == "Grid"

* IF the last key pressed was a cursor key,
* display a MESSAGEBOX
IF INLIST(LAST(), LeftArrow, RightArrow, LeftClick, Tab, Shift+Tab)
MESSAGEBOX("You've Arrived!")
*ThisForm.KeyPressCustomMethod
ENDIF
ENDIF

>Chuck,
>
>oops.... now that I figured out why highlighting wasn't working before I can see a boo-boo
>
>

>IF TYPE("THISFORM.ActiveControl") == "O" AND UPPER(THISFORM.ActiveControl.BaseClass) == "GRID"
>*-- If on an active object, and the object is the grid in myForm...
>   IF INLIST(LAST(), leftarrow, rightarrow... leftclick...)
>      *-- IF the last keys pressed were some of the cursor keys leftarrow, rightarrow...
>      *-- don't forget TAB, SHIFT+TAB as well...
>      chucks_keypressevent() && fire the new method we created
>   ENDIF
>ENDIF
>

>
>Notice I changed the <> to == on the first line... Sorry.