marcioe Posted June 18, 2022 Report Share Posted June 18, 2022 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+???? Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted June 18, 2022 Report Share Posted June 18, 2022 Uso oDlg:bKeyDown := {|nkey| myfunckey(nkey) } Isso para formulário oGet:bKeyDown := {|nkey| myfunckey(nkey) } Para individualizar a cada Get Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted June 19, 2022 Report Share Posted June 19, 2022 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.