Evento Minimizar form

[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 .