[cahosoft]

hola...todos como estan....
espero que me puedan ayudar..

deseo que una forma se pueda cerrar cuado el usuario presione una tecla en especial.... en este caso "escape (Esc)"...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
ShowMessage('Ctrl-A');
end;


en esto es con shift y control...necesito escape...