>>>Hi,
>>>
>>>Can't get a delegate method on grid.KeyPress() to fire:
>>>

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

>>>
>>>Any idea why?
>>>
>>>Thanks
>>
>>grd.AllowCellSelection must be set to .F., otherwise KeyPress() event fires at the textbox level.
>
>Thanks Antonio,
>
>Event tracking logs grid.KeyPress() firing (see attached event log screen shot)

Fires but does not execute, just passes to the contained object. You can see the difference that AllowCellSelection makes in the process.

#define DEF_ALLOWCELLSELECTION	.F.

WAIT CLEAR

local grdKeyPressBindEvent
grdKeyPressBindEvent = CreateObject('grdKeyPressBindEvent')
SET EVENTLIST TO KeyPress
SET EVENTTRACKING TO "EVENTS.LOG"
SET EVENTTRACKING ON
grdKeyPressBindEvent.Show(1)
SET EVENTTRACKING OFF
SET EVENTTRACKING TO
SET EVENTLIST TO
MODIFY FILE "EVENTS.LOG"

define class grdKeyPressBindEvent as Form

add object grd as grid with;
   top = 10;
 , left = 10, AllowCellSelection = DEF_ALLOWCELLSELECTION ;

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