Capture Maximize/Minimize Menu button click

~~~~~~~~~~~~~~~~~~~~~~~~~
...
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;

~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Enlarge a Form Over Screen Size
« Checking If File Is In Use

• 1
• 2
• 3
• 4
• 5