desabilitar Ctrl ESC
Ai galera eu pesquisei no fórum só que eu não encontrei nenhuma comando para desabilitar as Teclas ´CRTL´ e ´ESC´ no caso não precisa ser as duas juntas... se alguém souber como desabilita apenas a tecla ´ESC´ ou apenas atecla ´CRTL´ já está de bom tamanho pois assim a pessoa já não consegue entrar no menu do windows... as outras opções eu já consegui desabilitar.... só falta essa.. fico grato
Ztiago
Curtidas 0
Respostas
Sandra
20/08/2004
ztiago,
Para testar o ´Ctrl´, escreva no onKeyDown do form:
´Esc´, no OnKeyPress do form e KeyPreview=True:
Para saber qual tecla foi pressionada, coloque um label no form e escreva no OnKeyPress (do form e KeyPreview=True):
Espero que ajude!
Para testar o ´Ctrl´, escreva no onKeyDown do form:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) then begin Key := 0; ShowMessage(´Ctrl´); // Seu código aqui end; end;
´Esc´, no OnKeyPress do form e KeyPreview=True:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key = 27 then begin Key := 0; ShowMessage(´Esc´); end; end;
Para saber qual tecla foi pressionada, coloque um label no form e escreva no OnKeyPress (do form e KeyPreview=True):
Label1.Caption := Format(´O código da tecla é: ¬d´, [Key]);
Espero que ajude!
GOSTEI 0
Ztiago
20/08/2004
seguinte eu queria bloquear que a pessoa consiga entrar no menu iniciar do windows tem como? utilizando o ctrl+esc
GOSTEI 0
Sandra
20/08/2004
ztiago,
Veja este tópico: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=24191]Como Desabilitar a Tecla do Windows (WinKey) ?[/url]
Veja este tópico: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=24191]Como Desabilitar a Tecla do Windows (WinKey) ?[/url]
GOSTEI 0