utilizar conbinaciones de teclas para SetKey()

[Verhoven]

Necesito utilizar las combinaciones de teclas:

Ctrl+KeyPad_9 y asignarle una tarea.

Lo he intentado haciendo:
setKey(VK_CONTROL+VK_NUMPAD9, {|| tarea()})

Pero no hace nada.

¿Alguien sabe como hacerlo?.

[karinha]

Creo que sea asi,

Code: Select all

    DO CASE

       CASE ( nKey == Asc( "A" ) .OR. nKey == Asc( "a" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+A-For ACTION'
       CASE ( nKey == Asc( "B" ) .OR. nKey == Asc( "b" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+B-For ACTION'
       CASE ( nKey == Asc( "C" ) .OR. nKey == Asc( "c" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+C-For ACTION'
       CASE ( nKey == Asc( "D" ) .OR. nKey == Asc( "d" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+D-For ACTION'
       CASE ( nKey == Asc( "E" ) .OR. nKey == Asc( "e" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+E-For ACTION'
       CASE ( nKey == Asc( "F" ) .OR. nKey == Asc( "f" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+F-For ACTION'
       CASE ( nKey == Asc( "G" ) .OR. nKey == Asc( "g" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+G-For ACTION'
       CASE ( nKey == Asc( "H" ) .OR. nKey == Asc( "h" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+H-For ACTION'
       CASE ( nKey == Asc( "I" ) .OR. nKey == Asc( "i" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+I-For ACTION'
       CASE ( nKey == Asc( "P" ) .OR. nKey == Asc( "p" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+P-For ACTION'
       CASE ( nKey == Asc( "T" ) .OR. nKey == Asc( "t" ) ) .AND. ;
              GetKeyState( VK_CONTROL )
              ? 'Control+T-For ACTION'

       //CASE ( nKey == Asc( "Z" ) .OR. nKey == Asc( "z" ) ) .AND. ;
       //       GetKeyState( VK_CONTROL )
       //       ? 'Control+Z-For ACTION'

       CASE ( nKey == VK_INSERT  .AND. GetKeyState( VK_SHIFT   ) ) .OR. ;
            ( nKey == ASC( "V" ) .AND. GetKeyState( VK_CONTROL ) ) .OR. ;
            ( nKey == ASC( 'X' ) .AND. GetKeyState( VK_CONTROL ) )
            ? ' Multiplas-For ACTION'

       CASE ( nKey == VK_F2 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F2-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F3 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F3-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F4 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F4-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F5  .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F5-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F6 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F6-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F7 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F7-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F8 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F8-For ACTION'
        // Acao(Action) do seu programa
       CASE ( nKey == VK_F9  .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F9-For ACTION'
        // Acao(Action) do seu programa
       //CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )
       //   ? 'Control+F10-For ACTION'
          // Acao(Action) do seu programa
       CASE ( nKey == VK_F11 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F11-For ACTION'
          // Acao(Action) do seu programa
       CASE ( nKey == VK_F12 .AND. GetKeyState( VK_CONTROL ) )
          ? 'Control+F12-For ACTION'
          // Acao(Action) do seu programa

    ENDCASE

Saludos.