Windows - capturando o pressionamento dos botoes minimizar e maximizar

Top  Previous  Next

...

public

  procedure WMSysCommand

    (var Msg: TWMSysCommand);

 message WM_SYSCOMMAND;

...

 

implementation

...

procedure TForm1.WMSysCommand;

begin

  if (Msg.CmdType = SC_MINIMIZE) or

     (Msg.CmdType = SC_MAXIMIZE) then

  MessageBeep(0);

  

  DefaultHandler(Msg);

end;