Buscar por:

Verificando se uma determinada tecla está pressionada

Código

{Inclua na seção uses: Windows Esta função retorna true se a tecla informada estiver pressionada. False em caso contrário. }

function tbKeyIsDown(const Key: integer): boolean; 

begin 

  Result := GetKeyState(Key) and 128 > 0; 

end; 

{ Exemplos de uso: } 

if tbKeyIsDown(VK_CONTROL) then 

  { Tecla Ctrl pressionada } 

if tbKeyIsDown(VK_MENU) then 

  { Tecla Alt pressionada } 

if tbKeyIsDown(VK_SHIFT) then 

  { Tecla Shift pressionada } 

if tbKeyIsDown(VK_F2) then 

  { Tecla F2 pressionada} Qualquer tecla pode ser verificada. Para isto basta saber o código virtual (Virtual Key Code) da tecla. }