Minimizar Form en ShowModal

[Neftali [Germán.Estévez]]

Empezado por el_enigma1

Como se puede minimizar un form que esta en ShowModal, bueno de hecho minimizar la aplicacion que esta mostrando un ventana en ShowModal.

Añade a la parte privada de tu form modal la siguiente definición:

Código Delphi [-]
 procedure WMSyscommand(Var msg: TWmSysCommand); message WM_SYSCOMMAND;

y luego en la implementación de dicha procedure haces lo siguiente:

Código Delphi [-]
   case (msg.cmdtype and $FFF0) of
     SC_MINIMIZE:
     begin
       msg.result := 0;
       EnableWindow(Application.handle, true);
       Application.Minimize;
     end;
   else
     inherited;
   end;

con ésto debería funcionar...