Verificação das teclas Caps, Scroll e NUM

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Veja nesse artigo como fazer a verificação das teclas Caps, Scroll e NUM através de função string no Delphi

Veja abaixo a função para verificar a s teclas caps, scroll e NUM em Delphi.

function KeyLeads:String;
Var
State : String;
KeyState : TKeyboardState;
begin
State := '';
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 1) then
begin
State := State + 'Num Lock';
end;
if (KeyState[VK_CAPITAL] = 1) then
begin
State := State + 'Caps Lock';
end;
if (KeyState[VK_SCROLL] = 1) then
begin
State := State + 'Scroll Lock';
end;
Result := State;
end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?