Array
(
)

desabilitar Ctrl ESC

Ztiago
   - 20 ago 2004

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


Sandra
   - 20 ago 2004

ztiago,

Para testar o ´Ctrl´, escreva no onKeyDown do form:
#Código

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:
#Código
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):

#Código
Label1.Caption := Format(´O código da tecla é: ¬d´, [Key]);



Espero que ajude!


Ztiago
   - 23 ago 2004

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


Sandra
   - 24 ago 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]