Inclua na seção uses: Windows Esta função retorna true se a tecla
informada estiver pressionada. False em caso contrário.
Código da Função:
1 2 3 4 | function KeyIsDown(const Key: integer): boolean; begin Result := GetKeyState(Key) and 128 > 0; end; |
Exemplos de uso
1 2 3 4 5 6 7 8 9 10 11 12 | if KeyIsDown(VK_CONTROL) then { Tecla Ctrl pressionada } if KeyIsDown(VK_MENU) then { Tecla Alt pressionada } if KeyIsDown(VK_SHIFT) then { Tecla Shift pressionada } if KeyIsDown(VK_F2) then { Tecla F2 pressionada} Qualquer tecla pode ser verificada. Para isto basta saber o código virtual (Virtual Key Code) da tecla. } |
Fonte: http://www.planetadelphi.com.br/dica/655/verificando-se-uma-determinada-tecla-esta-pressionada
