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