Can't Minimize Main Form

Comments

• afusco

  April 2010 edited 7:02AM

  While I am working with FastReports Support on why I can't minimize a main form if a non-modal report form is open, I found a "solution" that has some advantages and disadvantages:
  
  In the Private section of your main form add:
  
  Private
  procedure WMSyscommand(Var msg: TWmSysCommand);
  message WM_SYSCOMMAND;
  
  Then add the following code:
  
  procedure TForm1.WMSyscommand(Var msg: TWmSysCommand);
  Begin
  Case (msg.cmdtype and $FFF0) of
  SC_MINIMIZE: Begin
  ShowWindow( handle, SW_MINIMIZE );
  msg.result := 0;
  End;
  SC_RESTORE: Begin
  ShowWindow( handle, SW_RESTORE );
  msg.result := 0;
  End;
  Else
  inherited;
  End;
  end;
  
  Advantages: The main form will minimize INDEPENDENT of the Preview Report windows. So you can display the report and have the main form minimized.
  
  Disadvantage: The main form is minimized to the DESKTOP, not the Taskbar and the TaskBar can not be used to bring the form back up since the form is on the desktop not the Taskbar.
  
  If you want to have the main form minimize to the Taskbar and be restored from the TaskBar, the following code needs to be added:
  
  Private
  procedure CreateParams( Var params: TCreateParams ); override;
  
  
  procedure TForm1.CreateParams( Var params: TCreateParams );
  begin
  inherited CreateParams( params );
  params.ExStyle := params.ExStyle or WS_EX_APPWINDOW;
  end;
  
  
  Advantage: Main form will minimize to the Taskbar and not the Desktop.
  Disadvantage: At least in Windows 7, you will have 2 Taskbar icons for your main form instead of one.