Cerrar fsMDIForm con ESC
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 |
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. |
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. |
Cerrar form al presionar Esc (SOLUCIONADO)
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! |
La franja horaria es GMT +2. Ahora son las 08:01:33. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi