Desabilitar todo o teclado

Delphi

02/09/2003

Alguém sabe dee uma rotina para desabilitar todo o teclado.........

Preciso ajudar um cara URGENTE.


Muito Obrigado

[b:2ab8b6d11c]Título editado pelo Moderador - Leia as regras e como encontrar respostas de maneira rápida (AZ)[/b:2ab8b6d11c]


Tecrogerio

Tecrogerio

Curtidas 0

Respostas

Imoreira

Imoreira

02/09/2003

Coloque KeyPreview do seu form para true e no evento onKeyPress coloque:

[color=blue:33dbbc87bf] if (key<>#0) then begin
key:=0;
end;[/color:33dbbc87bf]


GOSTEI 0
Tecrogerio

Tecrogerio

02/09/2003

Imoreira,

Isto só funciona no programa,

Quero desabilitar o teclado até mesmo para o Windows.

valeu

Se você souber.....


GOSTEI 0
Danielclubedelphi

Danielclubedelphi

02/09/2003

sobe


GOSTEI 0
::d::a::m::m::i::t::

::d::a::m::m::i::t::

02/09/2003

usa o componente Phantom, nele tem a propriedade InputLock, daí tu coloca InputLock:=ilHard;....

mas ele trava o teclado e o mouse....


GOSTEI 0
POSTAR