Como Saber se uma Tecla foi pressionada dentro do evento OnExit do Edit

06/04/2016

1

Bom Dia!

Tem Como Saber se uma Tecla foi pressionada dentro do evento OnExit do Edit?

tipo saber se o Esc foi pressionado para decidir o que fazer
Ex:
procedure Tfrmxxx.edtNome_ClienteExit(Sender: TObject);
begin
  se esc foi Pressionado então
    edtNome_Cliente.clear
else
   edtNome_Cliente.text := Dm.tbClienteNOME_CLIENTE.asString;

end;

sera que tem como fazer isso?
Responder

Posts

06/04/2016

P2

No evento keydown

begin
if key =vk_escap then
begin

end;
Responder