Fórum Travar teclado #170995

Faca o seguinte.
Declare a procedure abaixo na sessao Private do seu form Principal.
procedure TravaTecla(var msg:TMsg;var Handled:boolean);

Depois coloque no OnCreate Do form princila a linha abaixo
Application.OnMessage:=TravaTecla;

Agora faca a procedure TravaTeclado como abaixo

procedure TForm1.TravaTecla(var msg:TMsg;var Handled:boolean);
begin

//somente esta linha ja resolve
msg.wParam:=0;


// mas se vc quiser pode fazer um teste tipo

if Msg.message=WM_KEYDOWN then
begin
msg.wParam:=0; // trava o teclado
// agora um exemplo de como substituir teclas neste caso
//tab por enter .. mas tire a linha msg.wParam:=0.
if msg.wParam=VK_RETURN then
keybd_event(vk_tab,0,0,0);
end;
end;


Testei e travou tudo OK