>o = CREATEOBJECT("TestForm") >o.show() > >DEFINE CLASS TestForm AS FORM > > caption = "Press any key..." > height = 70 > width = 290 > autocenter = .T. > WindowType = 1 > KeyPreview = .T. > > ADD OBJECT cmdCancel AS cmdCancel > > PROCEDURE Init > PUSH KEY CLEAR > ENDPROC > > PROCEDURE Destroy > POP KEY > ENDPROC > > PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl) > > WAIT WINDOW TIMEOUT 1 "Form.KeyPress()" + CHR(13)+; > "nKeyCode = " + ALLTRIM(STR(nKeyCode)) + CHR(13) + ; > "nShiftAltCtrl = " + ALLTRIM(STR(nShiftAltCtrl)) > > ENDPROC > >ENDDEFINE > >DEFINE CLASS cmdCancel as COMMANDBUTTON > autosize = .T. > caption = "Cancel" > cancel = .T. > height = 27 > left = 220 > top = 40 > width = 58 > PROCEDURE click > thisform.release > ENDPROC >ENDDEFINE >