PRB: Control in Grid w/ When Returning .F. Passes Keys to Form

Steps to Reproduce Behavior

1. Run the following code from a program file:

      * Start of sample program
   
      PUBLIC oForm
      oForm=CREATEOBJECT('form1')
      oForm.SHOW
      oForm.grid1.column1.ADDOBJECT('text2','txtTextbox')
      oForm.grid1.column1.CURRENTCONTROL='text2'
      oForm.grid1.column1.text2.VISIBLE=.T.
   
      DEFINE CLASS form1 AS FORM
   
         ADD OBJECT grid1 AS GRID WITH ;
         COLUMNCOUNT = 2, ;
         NAME = "Grid1"
   
         ADD OBJECT command1 AS COMMANDBUTTON WITH ;
         CAPTION = "\<Test", ;
         HEIGHT=25, ;
         TOP=205, ;
         NAME = "Command1"
   
         PROCEDURE LOAD
            CREATE CURSOR test ( ctest c(10), ctest2 c(10) )
            INSERT INTO test ( ctest) VALUES ( "    ")
            INSERT INTO test ( ctest) VALUES ( "    ")
            GO TOP
         ENDPROC
   
         PROCEDURE command1.VALID
            WAIT WINDOW "Command button valid called" TIMEOUT 1
         ENDPROC
   
      ENDDEFINE
   
      DEFINE CLASS txttextbox AS TEXTBOX
   
         PROCEDURE WHEN()
            RETURN RECNO()=1     && Returns .F. if not on first record
         ENDPROC
   
      ENDDEFINE
   
      * End of sample program
   						

2. Click the grid cell in the first column, second row of the grid.
3. Press the t key. The Command button click will be called by the "T" hotkey even though the grid has the focus.

Method 1

1. Change the class definition for the textbox, removing the RETURN statement from the When() and adding code to the GotFocus() method as follows:

      DEFINE CLASS txtTextbox AS TEXTBOX
   
         PROCEDURE GOTFOCUS()
   
            IF RECNO()!=1          && Check for condition that was checked
                                   && in When()
              KEYBOARD '{tab}'
            ENDIF
   
         ENDPROC
   
      ENDDEFINE
   						

2. Run the program, and click the grid cell in the first column, second row of the grid. Note that the focus will not remain in the first column.

Method 2

1. Add the following code in the KeyPress procedure of the class definition for the Form:

      PROCEDURE KeyPress
         LPARAMETERS nKeyCode, nShiftAltCtrl
            * Check to see if the ActiveControl is a Grid and that the
            * ALT key was not pressed. If both of these are true, NODEFAULT
            * will discard the keystroke. If the ALT key was pressed, you do
            * want to use the keystroke to actuate any applicable hot-keyed
            * control on the form.
         IF this.ActiveControl.BaseClass = 'Grid' and nShiftAltCtrl != 4
            NODEFAULT
         ENDIF
      ENDPROC
   						

2. Run the program, and click the grid in the cell in the first column, second row of the grid. Note that the focus will remain in the first column. Typing "t" will not actuate the Command button but pressing the ALT+T keys will.