🚀 go-pugleaf

How to minimize application with modal forms active in D5.

Define in public section of your form:

AppState, FormState : TWindowState;
procedure WMSysCommand(var Message: TWMSysCommand); message
WM_SYSCOMMAND;

in implementation section :

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType and $FFF0 of
   SC_MINIMIZE : begin
                  AppState := MainForm.WindowState; 
                  FormState := Self.WindowState;
                  Self.WindowState := wsMinimized;
                  MainForm.WindowState := wsMinimized; // for D5
                  // for D7 works Application.Minimize i guess ;)
                 end;
  SC_RESTORE : begin
                  MainForm.WindowState := AppState;
                  Self.WindowState := FormState;
               end;
  else inherited;
  end;
end;

Now, when I press minimize icon on the title of the modal form the
entire application is minimized.
When I restore the application, the form is also restored.

Regards,
Alex.