Como fechar o meu programa com a tecla Esc? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como fechar o meu programa com a tecla Esc?

 

Crie um novo projeto.

No evento OnCreate do form deixa conforme o código abaixo:
Este código faz o form testar as teclas pressionadas.

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

E no evento OnKeyDown do form, deixe conforme o exemplo abaixo:

1
2
3
4
5
6
7
8
9
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_ESCAPE) then
    Close;
 
  // Como alternativa pode ser utilizado
  // Application.Terminate;
end;

Assim, se você pressionar Esc, o sistema será fechado.

Facebook Comments

Posts Relacionados

  • Administrador
  • 456 views
  • 0 comentários
  • 6 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados