Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cerrar fsMDIForm con ESC (https://www.clubdelphi.com/foros/showthread.php?t=61460)

jandj 08-11-2008 14:59:14

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

enecumene 08-11-2008 15:09:47

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 08-11-2008 16:21:45

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 08-11-2008 18:33:02

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