Teclas de Atalho (Alt+A)

[marcioe]

Tem como acionar uma função por exemplo com as teclas ALT+A    ->   Chamar por exemplo CAD_CLIENTES()  por exemplo

as teclas F1, F2..... F12 Ja tem, mas não to conseguindo fazer funcionar com ATL+????   

[Jmsilva]

Uso oDlg:bKeyDown := {|nkey| myfunckey(nkey) } 

Isso para formulário 

oGet:bKeyDown := {|nkey| myfunckey(nkey) } 

Para individualizar a cada Get 

 

[Ladinilson]

Veja se ajuda...

// Para Usar Tecla ALT+Letra. By Ednaldo Rolim
Static Function Teste( nKey, nFlags )
	    local cKey:= CHR( nKey )
	    If  GetKeyState( VK_CONTROL ) .And. ;
        GetKeyState( VK_SHIFT )
	        MsgInfo( " CONTROL + SHIFT + " + cKey )
	        ElseIf GetKeyState( VK_CONTROL )
	        MsgInfo( " ALT + CONTROL + " + cKey )
	        ElseIf GetKeyState( VK_SHIFT )
	        MsgInfo( " ALT + SHIFT + " + cKey )
	        ElseIf GetKeyState( VK_MENU )                    // alt key
	        MsgInfo( " ALT + " + cKey )
	    EndIf
	    // By Ednaldo Rolim - The Best.
    cKey:= Upper( cKey )
	    IF  cKey == "I"            // Alt+I
	        MsgInfo( " INCLUIR" )
	        ELSEIF cKey == "A"    // Alt+A
	        MsgInfo( " ALTERAR" )
	        ELSEIF cKey == "E"    // Alt+E
	        MsgInfo( " EXCLUIR" )
	        ELSEIF cKey == "P"    // Alt+P
	        MsgInfo( " IMPRIMIR" )
	        ELSEIF cKey == "R"    // Alt+R
	        MsgInfo( OemToAnsi( " RELATàRIOS" ) )
	    ENDIF
	Return( nKey )

Abraços