Foros Club Delphi - Cerrar MDI Child con ALT-F4

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

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

- - Cerrar MDI Child con ALT-F4 (https://www.clubdelphi.com/foros/showthread.php?t=35211)

Cerrar MDI Child con ALT-F4

Hola compañeros !

Como puedo cerrar un MDI Child cuando el usuario pulsa Alt-F4 sin que se cierre la aplicación entera ?!

Cada vez que pulso Alt-F4 al tener un form MDI Child activo, lo que hace es pasar directamente la pulsación al form principal y por lo tanto me cierra toda la aplicación. Tengo incluso puesto en el form 'Child' la propiedad KeyPreview = True.

Un saludo ;)

Esto se debe a que Alt-F4 se usa para cerrar la aplicación y Ctrl-F4 para cerrar las ventanas hijas...

Podrías probar con el siguiente código el cual no he probado:

Código Delphi [-]// TForm1 debe tener KeyPreview = True

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F4) and (ssAlt in Shift) and (MDIChildCount > 0) then
    ActiveMDIChild.Close
end;

Este código verifica si existen ventanas hijas abiertas, si es así, cierra la ventana hija activa, de otra manera, se cierra la aplicación...

Saludos...

Gracias Marcos !

Pero a pesar de todo no funciona.

Aunque el proceso de la ventana principal entre al código que propones, también cierra automáticamente la ventana principal, por lo que no me permite ejecutar el código que ponga en el OnKeyDown, incluso si pongo además Key := 0

Alguna otra propuesta ? :o

Buscando, buscando ... encontré algo y añadí otro poco, y me funciona correctamente.

Código:

TMainForm = class(TForm)

...

  public

    procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);

...

 

procedure TMainForm.FormCreate(Sender: TObject);

begin

  Application.OnMessage := AppMessage;

end;

 

procedure TMainForm.AppMessage(var Msg: TMSG; var Handled: Boolean);

begin

  Handled := False;

  case Msg.Message of

    WM_SYSKEYDOWN:

      if Msg.wParam = VK_F4 then begin

        if MDIChildCount > 0 then begin

          ActiveMDIChild.Close;

          Handled := True;

        end

        else Handled := False;

      end;

  end;

end;

De esta manera, si queda alguna ventana MDIChild abierta, con Alt-F4 se cerrará la ventana MDIChild, hasta que se llegue al Form Principal que se cerrará también correctamente con Alt-F4 en ese caso.

Además quedan funcionales todas las opciones de cerrar las ventanas MDIChild o principal de cualquier otra manera, por ejemplo pulsando en la 'X' correspondiente.

Si hago click en la 'X' de una ventana MDIChild, sólo se cerrará esta. Y si hago click en la 'X' de la ventana principal, se cerrará directamente toda la aplicación. Si se desea preguntar si se quiere finalizar la aplicación habiendo ventanas abiertas, se puede añadir en el evento OnClose u OnCloseQuery del Form principal.

Saludos a todos ! ;)