Detectar boton Minimizar Formulario

[Gabriel]

Hola Foro

Tengo una aplicación, que practicamente tiene bastantes pantallas modales, y pueden llegar a haber 3 profundidades de pantalla modal.

Quisiera poder detectar, si el cliente presiona el boton minimizar del formulario, para, detectarlo y minimizar la aplicación.

Ejemplo
if pulsan minimizar From Then Application.minimized;

Gracias

[gluglu]

private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...

procedure TForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MAXIMIZE) then
...
else
if (Msg.CmdType = SC_MINIMIZE) then
...
else
if (Msg.CmdType = SC_RESTORE) then
...
else DefaultHandler(Msg);
end;

Saludos ;)

[Gabriel]

Muchas Gracias

Gabriel