Ctrl + T and bKeyDown

[Jimmy]

hi.

i do have in Main

Code: Select all  Expand view  RUN

  oMain:bKeyDown := { | nKey, nFlag | DoMyKey( nKey, nFlag) }

Code: Select all  Expand view  RUN

STATIC PROCEDURE DoMyKey( nKey, nFlag )
   DO CASE
      CASE GetKeyState( VK_SHIFT )
      CASE GetKeyState( VK_CONTROL )
      CASE GetKeyState( VK_MENU )
   ENDCASE
   DO CASE
      CASE nKey = VK_F2
      CASE nKey = VK_F3
      CASE nKey = VK_F5
      CASE nKey = VK_F6
      CASE nKey = VK_F7
      CASE nKey = VK_F8
      CASE nKey = VK_F9
      CASE nKey = VK_F11
      CASE nKey = VK_F12
      CASE nKey = VK_ADD
      CASE nKey = VK_SUBTRACT
// how Ctrl + "T"
      CASE nKey = 20 // 116 // .AND. lCtrl = .T.
   ENDCASE

how can i get Ctrl + T

[Antonio Linares]

Dear Jimmy,

Code: Select all  Expand view  RUN

STATIC PROCEDURE DoMyKey( nKey, nFlag )

   if GetKeyState( VK_CONTROL ) .and. nKey = 20
      ...
   endif

return
 

[Jimmy]

hi Antonio,

Code: Select all  Expand view  RUN

   if GetKeyState( VK_CONTROL ) .and. nKey = 20 

the "Problem" is what to "use" for "t"/"T" as nKey

is there a Way to find out which "nKey" was press

[Antonio Linares]

Dear Jimmy,

if GetKeyState( VK_CONTROL ) .and. ( nKey == Asc( "t" ) .or. nKey == Asc( "T" ) )

nKey is the key value that was pressed

[Jimmy]

hi Antonio,

Code: Select all  Expand view  RUN

if GetKeyState( VK_CONTROL ) .and. ( nKey == Asc( "t" )  .or. nKey == Asc( "T" ) )

nKey is the key value that was pressed

YES
this Way it work like i want, thx