Ventana Minimizada

[jhonny]

No se, nunca lo he probado pero trata con el componente TApplicationEvents regularmente de la paleta Additional...

Este componente tiene un evento llamado OnMinimize,
O tambien puedes capturar un mensaje asi:

(Truco 102 de Trucomania)

Podemos hacerlo capturando el mensaje WM_SYSCOMMAND

-Primero, capturamos el mensaje, añadiendo esta linea en el private de la declaracion de la form:

  type 
    TForm1 = class(TForm)
      private
        {Esta linea/This Line}
        procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    end;

-Y en el implementation, ponemos la procedure:

  procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
  begin 
    if (Msg.CmdType = SC_MINIMIZE) or 
       (Msg.CmdType = SC_MAXIMIZE) then 
      MessageBeep(0);
    DefaultHandler(Msg);
  end;

Espero te sirva