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