tecla esc para fechar o form?

11/05/2003

0

Olá amigos !
gostaria de saber como faço para apertar a tecla esc e fechar o form?

Se alguem poder me ajuda eu agradeço.

Feliz dia das mães a todas as mães. :P


Felipesans

Felipesans

Responder

Post mais votado

11/05/2003

Outra Maneira(+Prática) 2-No Evento OnKeyPress do Form Digite o Seguinte: If Key = #27 Then Close;


Não se esqueça de mudar a pripriedadade [b:48cdedcc0d]KeyPreview[/b:48cdedcc0d] do Form para True, assim o formulário será fechado assim que o [Esc] for pressionado, não importanto em qual componente estiver o foco.


Obubiba

Obubiba
Responder

Mais Posts

11/05/2003

Glecio

E Aê Cara:

Bom existem várias maneiras para se fechar um form ao pressionar a tecla ESC. Aqui vai algumas:

1- Você pode utilizar o ActionList(>=Delphi5) na paleta standard:
Coloque este componente no form e dê 2 clicks nele, adcione um action(ou vários, depende de quantas hotkey queira utilizar), selecione o action q vc adcionou e vá ao object inspector e mude a propriedade SHORTCUT para a tecla que deseja utilizar, no caso o ESC. Se quiser mude o nome e o caption para ESC. No evento onExecute do Action que está selecionado mande fechar o form(form1.close ou close).
obs.: Se vc já tiver algum procedimento que fecha o form no código, pode utilizá-lo no OnExecute do Action.


Outra Maneira(+Prática)

2-No Evento OnKeyPress do Form Digite o Seguinte:
If Key = #27 Then
Close;

É só.

Falou Cara. Espero ter te ajudado.


Responder

11/05/2003

Toshio Bruno

Outra forma além da do nosso amigo acima é essa.

no OnKeyDown você digita:
begin
if key=(VK_Escape) then
close;
end;

não se esqueça também de alterar o KeyPreview para True;


Responder

11/05/2003

Glaubergs

Tem outra mais simples ainda. Se vc tem no form algum botão pra fecha-lo, deixe sua propriedade cancel true ...


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar