Cerrar MDI Child con ALT-F4

[[gluglu]]

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

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 !