20/08/2004

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

Respostas

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&93;) 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´, &91;Key&93;); 



Espero que ajude!


Responder Citar

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 Citar

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 Citar