Evento Minimizar form

[esocrates]

¿Cuál es el evento del Form para programar en el evento Minimizar?
He encontrado en otro post que puede hacerse en OnResize, pero esto activa tambien el evento al cargar el formulario. Lo que yo quiero es que el código se ejecute sólo al minimizar.
Muchas gracias
Un saludo

[jhonny]

Capturando el MESSAGE de Windows, llamado WMSysCommand... osea, declaras en tu FORM un procedimiento como el siguiente:

Código Delphi [-]
procedure OnMinimizar(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;

Y en el cuepro del mensaje, pones lo que quieres hacer con él, así:

Código Delphi [-]
procedure TForm1.OnMinimizar(var Mensaje: TWMSysCommand);
begin 
  if (Mensaje.CmdType = SC_MINIMIZE) then 
  begin
    //Haces lo que tienes que hacer...
  end;
  DefaultHandler(Mensaje);
end;

Donde TForm1, es el formulario donde estas declarando dicho procedimiento que captura el mensaje TWMSysCommand.

Y listo, espero te sirva .

[esocrates]

Muchas gracias jhonny. Era lo que necesitaba.
Un saludo y hasta pronto