Fórum Como utilizar a tecla ESC em um Sistema em Delphi #144343
11/03/2003
0
Prezados Amigos,
Como posso utilizar a tecla, ESC em meu sistema em Delphi.
Atenciosamente,
Vinicius Pacca
Como posso utilizar a tecla, ESC em meu sistema em Delphi.
Atenciosamente,
Vinicius Pacca
Viniciuspacca
Curtir tópico
+ 0
Responder
Post mais votado
11/03/2003
Faz o seguinte:
No evento onKeyPress de um Edit por exeplo vc testa o ´Key´ que é uma variável que recebe a tecla que foi pressionada, só que ele testa o ASCCI da Letra por exemplo
TForm1.editekeypres(sender TObject)
Begin
If(Key = #27) then // O 27 é o código ASCII do ESC
ShowMEssage(´Você apertou no ESC´)
End;
Ok!´
[b:fd1d3a2581]Desculpe eu aperteio o botão errado na hora de responder e coloque novo tópico[/b:fd1d3a2581]
No evento onKeyPress de um Edit por exeplo vc testa o ´Key´ que é uma variável que recebe a tecla que foi pressionada, só que ele testa o ASCCI da Letra por exemplo
TForm1.editekeypres(sender TObject)
Begin
If(Key = #27) then // O 27 é o código ASCII do ESC
ShowMEssage(´Você apertou no ESC´)
End;
Ok!´
[b:fd1d3a2581]Desculpe eu aperteio o botão errado na hora de responder e coloque novo tópico[/b:fd1d3a2581]
Anonymous
Responder
Gostei + 1
Mais Posts
11/03/2003
Anonymous
Ronivaldo
Esc Para Sair
{TForm1.FormKeyDown}
case key of
vk_Escape: entrada.close;
end;
begin
case key of
vk_Escape: Table1.cancel;
end;
end;
Espero ter ajudado
Esc Para Sair
{TForm1.FormKeyDown}
case key of
vk_Escape: entrada.close;
end;
begin
case key of
vk_Escape: Table1.cancel;
end;
end;
Espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)