desabilitar Ctrl ESC

Question

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 te...

Sandra · Answer

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!

Ztiago · Answer

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

Sandra · Answer

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