how to get CTRL + LBUTTONDOWN Event ?

[Jimmy]

hi,

to "mark" multiple Item in Windows Explorer you need "Control + left Mouse Button down"

how to get that Event

---

i need it for my CLASS TGrid where i get "Keyboard" Input in Method Notify

Code: Select all  Expand view  RUN

  CASE nCode == LVN_KEYDOWN
      nKey := LV_GETGRIDVKEY( nPtrNMHDR )
      IF nKey = 13
         IF ::bClick != nil
            EVAL( ::bClick, ::nOption, Self )
         ENDIF
 

is this the Place to "ask" for CTRL + LBUTTONDOWN

Code: Select all  Expand view  RUN

     //  CTRL + Left Mouse down  
      ELSEIF ( GetKeyState( VK_CONTROL ) .AND. ??? )

[Antonio Linares]

Dear Jimmy,

Here you have a working example:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

    local oWnd

    DEFINE WINDOW oWnd

    oWnd:bLClicked = { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Ctrl + left click" ),) }

    ACTIVATE WINDOW oWnd

return nil    

[Jimmy]

hi Antonio,

Code: Select all  Expand view  RUN

oWnd:bLClicked = { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Ctrl + left click" ),) }

YES, thx to point me to Codeblock Slot