Foros Club Delphi - Minimizar aplicación con ventanas modales

Si alguna vez has querido minimizar tu aplicación con el botón de la barra de tareas, te habrás percatado que no es posible hacerlo cuando hay ventanas modales abiertas. Lo que debe ser una acción rápida se convierte muchas veces en una penuria de cerrar una ventana tras otra hasta que quede sólo la ventana principal.

Con este truco, originalmente publicado por Peter Below, podrás usar el botón de la barra sin importar cuántas ventanas modales tengas.

Sólo tienes que definir el método AppHook que se muestra a continuación, en el formulario principal y "engancharlo" a la aplicación en el evento OnCreate del formulario.

Código Delphi [-]type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    function AppHook(var Message: TMessage): Boolean;
  end;

implementation

function TForm1.AppHook(var Message: TMessage): Boolean;
begin
  Result := false;

  if Message.Msg = WM_ENABLE then
    if not TWMEnable(Message).Enabled then
    begin
      EnableWindow(Application.Handle, true);
      Result := true;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HookMainWindow(AppHook);
end;