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

Show Delphi » Miscelânea » Como fechar o meu programa com a tecla Esc?

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 Box
  • InfusTec
  • 5.634 views
  • 0 comentários
  • 6 de abril de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

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