Hi Borislav

You see the snippet in the original message? This is from SET EVENTTRACKING with some DEBUGOUT. The MouseDown EVENT of the grid fires before the MouseDown EVENT of the textbox (for short) - but the code in grid.MouseDown Method is executed later.

My problem is, that I need to execute some code in BeforeRowColChange - on the old record. And you see that text1.MouseDown fires after BeforeRowColChange and AfterRowColChange. So it is to late ...

Lutz

>MouseDown event is executed in the current Grid control not in the Grid, Only if you have AllowCellSelection = .f. then Grid MouseDown event will be executed.
>If you want it in Grid you must send it from current Grid control into Grid level.
>
>
>>Hi Borislav
>>Thanks
>>KEY+Shift goes through KeyPress - this works.
>>
>>I need Mouse+ SHIFT or CTRL
>>
>>Lutz
>>>With a little help from WIN32API project from VFPx
>>>

>>>#define VK_SHIFT   0x10    && SHIFT key
>>>#define VK_CONTROL 0x11    && CTRL key
>>>#define VK_MENU    0x12    && ALT key
>>>
>>>DECLARE INTEGER GetAsyncKeyState IN user32;
>>>     INTEGER vKey
>>>
>>>lbLoop = .t.
>>>DO WHILE lbLoop 
>>>   CLEAR
>>>   ? "Shift", GetAsyncKeyState (VK_SHIFT)        # 0
>>>   ? "Ctrl" , GetAsyncKeyState (VK_CONTROL) # 0
>>>   ? "Alt"  , GetAsyncKeyState (VK_MENU)        # 0
>>>   lbLoop = INKEY(0) # 27 && Press ESC to exit the loop, press any other key to see the result. To Alt+A, Ctrl+A, Shift+A, only A etc. becuase if you press only Shift/Ctril/Alt Inkey(0) do not work :-)
>>>ENDDO
>>>

>>>
>>>
>>>
>>>
>>>>Hi Hank,
>>>>
>>>>Thanks
>>>>CRLT+Mouse; SHIFT+Mouse. I need to figure out the CTRL and the SHIFT, Mouse alone works as expected.
>>>>
>>>>Lutz
>>>>>Have you checked mdown() value in BeforeRowColChange?
>>>>>
>>>>>>Hi All,
>>>>>>
>>>>>>I have an oddness in grids events.
>>>>>>
>>>>>>The event MousDown is called by the system, but code in MousDown is not executed in this moment but later on.
>>>>>>
>>>>>>My MousDown looks like
>>>>>>

>>>>>>LPARAMETERS ;
>>>>>> tnButton,;
>>>>>> tnShift,;
>>>>>> tnXCoord,;
>>>>>> tnYCoord,;
>>>>>> toColumn
>>>>>>
>>>>>>DEBUGOUT PROGRAM(),' ',ALIAS(),' ',RECNO()
>>>>>>

>>>>>>If I MouseClick I got EventLog / Debuglog
>>>>>>

>>>>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.MouseDown(1,0, 2,0, 461,0, 208,0)
>>>>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.BeforeRowColChange(3,0)
>>>>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
>>>>>>46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
>>>>>>46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
>>>>>>46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
>>>>>>46736,254, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.AfterRowColChange(3,0)
>>>>>>46736,262, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.MouseDown(1,0, 2,0, 461,0, 208,0)
>>>>>>FRMNUTZER.PGFMAIN.PAGE1.CNTLIST.GRDLISTGRID.MOUSEDOWN   CURMITARBEITER_EDIT           16,0
>>>>>>

>>>>>>The last line is the DEBUGOUT of MouseDown
>>>>>>
>>>>>>Yeah, nice, I would like to know if the mouse is pressed with SHIFT or CTRL, if I reach BeforeRowColChange...
>>>>>>
>>>>>>Could somebody please check that he got this odd event behaviour? Does somebody have an idea how to get the code running the right moment?
>>>>>>
>>>>>>Thanks
>>>>>>Lutz