procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSyscommand(var msg: TWmSysCommand); begin if (msg.CmdType and $FFF0) = SC_MINIMIZE then ShowMessage('L''utilisateur a cliqué sur le bouton Minimize'); inherited; end;