Evento OnMinimize del formulario
 

Los formularios de Delphi no tienen el evento OnMinimize.
A veces estaría bien disponer de él; En mi caso lo necesitaría ya que a veces doto a mis aplicaciones de la caraterística (o manía mía) de que al minimizarlos "pasan al Tray"; Es decir, oculto el form y visualizo el icono junto al reloj.

Una forma sencilla de detectarlo es hacer lo siguiente.
En la sección private del form añadir esta definición:

Código Delphi [-]
  // Capturar mensajes al form
  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

Y en la implementación se captura el mensaje de minimizar:

Código Delphi [-]
// Capturar mensajes....
procedure TFormMain.WMSysCommand(var Msg: TWMSysCommand);
begin
  // Minimizando?
  if (Msg.CmdType = SC_MINIMIZE) then begin
    // Accion de ocultar el form
    actionOcultar.Execute;
  end
  else begin
    // comportamiento estandard
    DefaultHandler(Msg);
  end;
end;

¡Ojo! En mi caso no me interesa que el formulario se minimize, ya que yo lo oculto, pero si os interesa que esa acción se realice, debéis sacar fuera del else la llamada a
DefaultHandler(Msg)

P.D: Funciona con el botón de minimizar y desde el menú de sistema del form, pero no pulsando click derecho sobre el botón de la barra de tareas. (Cuando lo encuentre lo añado).

actionOcultar.Execute;
no me reconoce este codigo, necesito alguna uses

No. Esa es simplemente una Action que yo tengo para ocultar el form. En ese punto puedes añadir el código que necesites.

En mi caso tengo esa Action definida como:

Código Delphi [-]
AnimateWindow(FormMain.Handle, 600, AW_SLIDE or AW_HIDE or AW_BLEND);
  FormMain.Hide;

Pero si deseas hacer otra csa, puedes poner cualquier otro código.

Neftalí he adaptado la idea para algo que tenía pendiente y parece funcionar pulsando en la barra. En Delphi 7 sobre XP.

Código Delphi [-]
procedure SysCommand(var Msg: TMessage); message wm_SysCommand;

procedure TfMain.SysCommand(var Msg: TMessage);
begin
  {salvo el cerrar}
  if Msg.wParam = sc_Close then
     dmdatos.fdmdatos.acCerrarApp.Execute
   else
     begin
       if Msg.wParam = SC_MINIMIZE then
          Application.Minimize
         else
          inherited; {para tratar los mensajes como habitualmente};
     end;
end;

hace ya bastante tiempo necesitaba algo parecido, gracias a la ayuda de alguien que no recuerdo, ahora utilizo el componente ApplicationEvents que viene en la paleta Additional y dispone de un evento OnMinimize, entre otros.

Estoy buscando algo parecido, pero recien ingreso asi q no pregunto nada y lo busco primero, si no encuentro lo que busco recién pregunto hehe. El tema es que el minimize en Win7 no siempre funciona y se pierde la aplicación, desaparece de la lista del admninistrador de tareas, se lo ve en la solapa servicios, pero ho hay forma de restaurarlo. Con lo cual hay que finalizar la aplicación y reiniciarla.
Y todo esto para un usuario final resulta una tarea un poco engorrosa, ya que pagóoooo por algo que funcione.
Saludos!
Walter