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:
Código:
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:
Código:
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
