capturar hotkey

[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...

[marto]

Wop!

Busca en la ayuda Virtual Key

[Ricardojosep]

Hola, te sugiero que veas bien que es lo que vas a utilizar ya que si pones Ctrl + Esc, Windows capta primero esas teclas, que son para abrir el Inicio, aqui te mando como es pero utilizando Shift, ya que Alt + Esc, es minimizar la ventana.

if (ssShift in Shift) and (Char(Key) = #27) then
ShowMessage('Shift + Esc');