>>PUBLIC oform1 >>oform1=NEWOBJECT("form1") >>oform1.Show >>RETURN >> >>* >>DEFINE CLASS form1 AS form >> >> Height = 144 >> Width = 283 >> DoCreate = .T. >> Caption = "Form1" >> KeyPreview = .T. >> Name = "Form1" >> >> >> ADD OBJECT text1 AS textbox WITH ; >> Height = 23, ; >> Left = 91, ; >> Top = 60, ; >> Width = 100, ; >> Name = "Text1" >> >> >> PROCEDURE KeyPress >> LPARAMETERS nKeyCode, nShiftAltCtrl >> IF nKeyCode = 134 && F12 >> WAIT WINDOW 'this is second' TIMEOUT 1 >> ENDIF >> ENDPROC >> >> >> PROCEDURE text1.KeyPress >> LPARAMETERS nKeyCode, nShiftAltCtrl >> IF nKeyCode = 134 && F12 >> WAIT WINDOW 'this is first' TIMEOUT 1 >> ENDIF >> ENDPROC >> >> >>ENDDEFINE >>>>