desabilitar Ctrl ESC

20/08/2004

2

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


Responder

Posts

20/08/2004

Sandra

ztiago,

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!


Responder

23/08/2004

Ztiago

seguinte eu queria bloquear que a pessoa consiga entrar no menu iniciar do windows tem como? utilizando o ctrl+esc


Responder

24/08/2004

Sandra

ztiago,

Veja este tópico: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=24191]Como Desabilitar a Tecla do Windows (WinKey) ?[/url]


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira