Fórum Rápida e Urgente !!!! #140383
24/02/2003
0
Olá, como faço para sair de uma aplicação quando o usuário presiona o esc.
Abs.
Abs.
Anonymous
Curtir tópico
+ 0
Responder
Posts
24/02/2003
Aroldo Zanela
Olá, como faço para sair de uma aplicação quando o usuário presiona o esc.
Abs.
Coloque um componente bitbtn no formulário e mude a propriedade cancel para para true;
No evento OnClique coloque um Close;
procedure TForm1.BitBtn1Click(Sender: TObject); begin Close; end;
Responder
Gostei + 0
24/02/2003
Navoid
primeiro sete a propriedade do form keypreview para true
depois no evento onkeypress do form digite o código abaixo.
****
if key = #27 then
application.terminate;
****
até
depois no evento onkeypress do form digite o código abaixo.
****
if key = #27 then
application.terminate;
****
até
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)