Rápida e Urgente !!!!
Olá, como faço para sair de uma aplicação quando o usuário presiona o esc.
Abs.
Abs.
Anonymous
Curtidas 0
Respostas
Aroldo Zanela
24/02/2003
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;
GOSTEI 0
Navoid
24/02/2003
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é
GOSTEI 0