Cerrar fsMDIForm con ESC

[jandj]

Hola, podrian poner me pal de ejemplo de como cerrar formularios al presionar la tecla escape creia que era de esta forma pero no funciono:

if key=vk_esc then
begin
close();
end

[[enecumene]]

Hola, se me ocurre que deberías usar un ActionList en el formulario principal y programar el código, otra cosa, ¿qué versión Delphi estás trabajando?.

Saludos.

[ContraVeneno]

tu formulio debe de tener la propiedad "KeyPreview" en verdadero, ese código debe de estar en el evento "OnKeyPress" del formulario.

Lo más fácil es utilizar un ActionList y a la acción cerrar ponerle el acceso directo (ShortCut) a la tecla "Esc". Al botón de salir le asignas esa acción y listo. No codifícas nada.

[jandj]

Gracias a todos: para los que tienen el mismo problema esta es la "solucion".

ponerlo en el evento onkeypress poner la propiedad keypreview a true de cada form que se cerrara al precionar la tecla Esc.
Codigo el correcto es:

procedure TF_Usuarios.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
begin
close;
end
end;

Hasta la proxima!