>local grdKeyPressBindEvent >grdKeyPressBindEvent = CreateObject('grdKeyPressBindEvent') >grdKeyPressBindEvent.Show(1) > >define class grdKeyPressBindEvent as Form > >add object grd as grid with; > top = 10; > , left = 10; > >procedure LOAD >create cursor Test(Test1 C(10), Test2 C(10)) >insert into test values ('Test11', 'Test12') >insert into test values ('Test21', 'Test22') >go 1 > >procedure init >BindEvent(this.grd, 'KeyPress', this, 'grdKeyPress') > >procedure grdKeyPress >lparameters nKeyCode, nShiftAltCtrl >wait window Textmerge([grd.KeyPress(<<m.nKeyCode>>, <<m.nShiftAltCtrl>>)]) nowait noclear timeout 5 && never shows up > >enddefine >>