Teclas de Atalho (Resolvido)

[Edu]

Prezados,

Bom dia!

Gostaria de uma ajuda, estou querendo colocar um atalho com duas teclas num GET. Ex: Ctrl + P.

Isso é possível?

Grato.

 

[aferra]

bem não testei mas a ideia é +- assim

oKey:bPostKey := {|| IF( oKey:nLastKey == VK_CONTROL + oKey:nLastKey == "P", sua_funcao(), ) }

[Edu]

Não funcionou aferra.

Deixa eu explicar melhor...

Eu quero, no nKeyDown da Dialog, quando teclado [Ctrl + P], execute um setFocus no GET.

 

[Edu]

No xDevStudio tem a tabela de Inkey Codes que tem teclas do tipo K_CTRL_P = [Ctrl + P], porém não funciona.

Dá erro de variável não existe.

[Theotokos]

vc inlcuir o INCLUDE

#Include "inkey.ch"

 

[kapiaba]

Veja se te ajuda:

    oDlg:bKeyDown := { | nKey | Ctrl_Teclas(nKey,oDlg) }
	Function Ctrl_Teclas(nKey,oDlg)
	   Do Case
   Case ( nKey == Asc( "S" ) .OR. nKey == Asc( "s" ) ) .AND. GetKeyState( VK_CONTROL )
      oDlg:End()
   Case ( nKey == Asc( "O" ) .OR. nKey == Asc( "o" ) ) .AND. GetKeyState( VK_CONTROL )
      Grava()
   Case ( nKey == Asc( "P" ) .OR. nKey == Asc( "p" ) ) .AND. GetKeyState( VK_CONTROL )
      Imprime()
   EndCase
	Return Nil

[Edu]

Show Kapiaba! Funcionou!

Many Thanks.

[kapiaba]

Very good.

 

ou,

"mmercado"
Hola Ubiratan:

Preciso chamar em todo meu sistema a função GERAL(),

para isso gostaria de usar a tecla CTRL+K.
ex:
 setKey( CTRL+K,  { | nKey | GERAL()  } )
Como fazer isto?

No soy Antonio pero tal vez esto te sirva:

	   #define VK_K   75
	   SetKey( VK_K, {|| If( GetKeyState( VK_CONTROL ), GERAL(), Nil ) } )