Foros Club Delphi - Cerrar Formularios con la Tecla ESC

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cerrar Formularios con la Tecla ESC (https://www.clubdelphi.com/foros/showthread.php?t=74633)

sleep25000

30-06-2011 10:10:46

Cerrar Formularios con la Tecla ESC

Buenos días,

Estoy trabajando con Delphi 2010, deseo cerrar los formularios al pulsar la tecla ESC, tengo un ActionList, pero la propiedad ShortCut no contiene el valor ESC,
de que forma podria hacerlo?

Gracias.

Casimiro Notevi

30-06-2011 10:23:41

En el FormOnKeyDown

Código Delphi [-]procedure TFform1.FormKeyDown(Sender: TObject; var Key: Word; Shift:  TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

sleep25000

30-06-2011 13:08:33

Cita:

Empezado por Casimiro Notevi (Mensaje 405180)

En el FormOnKeyDown

Código Delphi [-]procedure TFform1.FormKeyDown(Sender: TObject; var Key: Word; Shift:  TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

gracias, me funciona muy bien

La franja horaria es GMT +2. Ahora son las 13:17:52.