Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
LeoSlander

Travar tecla caps lock com o Delphi

Recommended Posts

Alguém sabe como se pode travar a tecla caps lock pelo Delphi de modo que se for pressiona o seu status não altere?

Exemplo: quando se entrar em um determinado form o caps lok seja travado sendo que o usuário ao pressiona-lo não ira alterar o seu status.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, você poderia fazer assim, primeiro cria uma procedure para pegar o status da tecla

procedure TForm1.tbSetCapsLock(State: boolean);
begin
if (State and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or
((not State) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then
begin
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

end;

Aí, depois, deixa a propriedade KeyPreview do form em "TRUE", e no evento onKeyDown do form você coloca

if(key=VK_CAPITAL)then
tbSetCapsLock(false);

claro que eu não faria isso, pois é só voce colocar a propriedade CharCase dos Edit's por exemplo na maneira que você deseja que saiam os caracteres nesse form:

ecLowerCase : Tudo em minúsculo;

ecNormal : Depende de como estiver o CapsLock;

ecUpperCase : Tudo em maiúsculo;

Abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado a primeira opção me ajudou.

A questão é que eu quero criar um modulo de configuração onde o usuário possa configurar o teclado da forma em que ele quiser, ou seja digitar maiusculo ou minusculo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×