>LPARAMETERS nKeyCode, nShiftAltCtrl > >IF thisform.FunctionKeyPress(m.nKeyCode, m.nShiftAltCtrl) > NODEFAULT >ENDIF >>in my base form class FunctionKeyPress I have
>LPARAMETERS nKeyCode, nShiftAltCtrl > >LOCAL lNodefault as Boolean >m.lNodefault = .T. >WITH thisform > DO CASE > CASE nKeyCode = 21 && F1 > .ShowHelp(.ActiveControl) > CASE nKeyCode = -7 && F8 > IF .ResolveConflicts(.T.) > .Release() > ENDIF > CASE nKeyCode = 27 && ESC > .Release() > OTHERWISE > m.lNodefault = .F. > ENDCASE >ENDWITH >RETURN m.lNodefault>
> DO CASE > CASE ... > CASE ... > CASE DODEFAULT(m.nKeyCode, m.nShiftAltCtrl) && -- Standard Hot keys > OTHERWISE > ENDCASE >>If I have KeyPreview = .F. in the base class but set it in my derived form the keypress event of my controls is not fired.