>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 >>