Minimizing the entire application while minimizing the child modal form

Question

In another question next to this, I get an answer to get modal forms in order to stay inside the workspace inside the main form. The way I can do this (thanks to David again) catches WMSizing, WMMoving, WMGetMaxMinInfo and for my messages as WMShowwindow messages. I am not closed to processing messages, and I think that I probably manage messages because I do not get the result that I need.

All forms in my application are modal. But you can open a lot in one thread of execution. (Mainform, form1, form2, form3 ... formN). The whole form (1..N) moves inside the workspace in my main form. Maximize, restore, resize, move ... everything between the boundaries of this workspace.

But I can’t cope with how to minimize the whole application, and then click the activation button of the active modal form and click the button on the taskbar. The application will be used in XP and W7 ... I am developing in DelphiXE.

The project can be downloaded here ( Project files - Mainform, panel, button, SecondaryForm, unit, nothing more), just to see that I will try all the offers that I found before asking here.

This is the source code of the source block, which stores modal forms within the workspace.

unit uFormularios; interface uses Classes, SysUtils, Windows, Messages, Forms, DBGrids, StdCtrls, Menus, Graphics, ComCtrls, Math; type TForm_en_ventana = class(TForm) private inicializada: boolean; bCentrada : boolean; bMaximizada : boolean; ancho_original: integer; alto_original : integer; procedure WMShowWindow(var Message: TWMShowWindow); message WM_SHOWWINDOW; procedure WMSizing(var msg: TMessage); message WM_SIZING; procedure WMMoving(Var msg: TMessage); message WM_MOVING; procedure WMGetMinMaxInfo(Var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO; public constructor Create(AOwner: TComponent); override; property centrada: boolean read bCentrada write bCentrada; property maximizada: boolean read bMaximizada write bMaximizada; end; procedure MaximizarFormulario(var F; MaximaAltura: integer = 0; MaximoAncho: integer = 0; Centrado: boolean = TRUE); procedure InicializarVentanaTrabajo(const izq, der, arr, aba: integer); var ESPACIO_DE_TRABAJO, VENTANA_DE_TRABAJO: TRect; implementation constructor TForm_en_ventana.Create(AOwner: TComponent); begin inherited; centrada := TRUE; maximizada := false; inicializada := false; end; Procedure TForm_en_ventana.WMGetMinMaxInfo(Var msg: TWMGetMinMaxInfo); begin inherited; with msg.MinMaxInfo^.ptMaxPosition do begin x := VENTANA_DE_TRABAJO.Left; y := VENTANA_DE_TRABAJO.Top; end; with msg.MinMaxInfo^.ptMaxSize do begin x := VENTANA_DE_TRABAJO.Right - VENTANA_DE_TRABAJO.Left; y := VENTANA_DE_TRABAJO.Bottom - VENTANA_DE_TRABAJO.Top; end; with msg.MinMaxInfo^.ptMaxTrackSize do begin x := VENTANA_DE_TRABAJO.Right - VENTANA_DE_TRABAJO.Left; y := VENTANA_DE_TRABAJO.Bottom - VENTANA_DE_TRABAJO.Top; end; with msg.MinMaxInfo^.ptMinTrackSize do begin x := ancho_original; y := alto_original; end; end; procedure TForm_en_ventana.WMSizing(var msg: TMessage); var R: PRect; begin R := PRect(msg.LParam); R.Left := Max(R.Left, VENTANA_DE_TRABAJO.Left); R.Right := Min(R.Right, VENTANA_DE_TRABAJO.Right); R.Top := Max(R.Top, VENTANA_DE_TRABAJO.Top); R.Bottom := Min(R.Bottom, VENTANA_DE_TRABAJO.Bottom); Caption := 'Ancho: ' + inttostr(ancho_original) + ' - Alto: ' + inttostr(alto_original); end; procedure TForm_en_ventana.WMMoving(var msg: TMessage); var R : PRect; dx, dy: integer; begin R := PRect(msg.LParam); dx := 0; dy := 0; if R.Left < VENTANA_DE_TRABAJO.Left then dx := VENTANA_DE_TRABAJO.Left - R.Left; if R.Right > VENTANA_DE_TRABAJO.Right then dx := VENTANA_DE_TRABAJO.Right - R.Right; if R.Top < VENTANA_DE_TRABAJO.Top then dy := VENTANA_DE_TRABAJO.Top - R.Top; if R.Bottom > VENTANA_DE_TRABAJO.Bottom then dy := VENTANA_DE_TRABAJO.Bottom - R.Bottom; OffsetRect(R^, dx, dy); end; procedure TForm_en_ventana.WMShowWindow(var Message: TWMShowWindow); begin if inicializada then Exit; inicializada := TRUE; ancho_original := Width; alto_original := Height; Constraints.MinHeight := Height; Constraints.MinWidth := Width; if centrada then begin Left := (((VENTANA_DE_TRABAJO.Right - VENTANA_DE_TRABAJO.Left) - Width) div 2) + VENTANA_DE_TRABAJO.Left; Top := (((VENTANA_DE_TRABAJO.Bottom - VENTANA_DE_TRABAJO.Top) - Height) div 2) + VENTANA_DE_TRABAJO.Top; end; if maximizada then SendMessage(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); end; procedure InicializarVentanaTrabajo(const izq, der, arr, aba: integer); begin VENTANA_DE_TRABAJO.Left := izq; VENTANA_DE_TRABAJO.Right := der; VENTANA_DE_TRABAJO.Top := arr; VENTANA_DE_TRABAJO.Bottom := aba; end; procedure MaximizarFormulario(var F; MaximaAltura: integer = 0; MaximoAncho: integer = 0; Centrado: boolean = TRUE); begin LockWindowUpdate(TForm(F).Handle); TForm(F).Left := ESPACIO_DE_TRABAJO.Left; if MaximoAncho = 0 then TForm(F).Width := ESPACIO_DE_TRABAJO.Right else begin if ESPACIO_DE_TRABAJO.Right < MaximoAncho then TForm(F).Width := ESPACIO_DE_TRABAJO.Right else TForm(F).Width := MaximoAncho; end; TForm(F).Top := ESPACIO_DE_TRABAJO.Top; if MaximaAltura = 0 then TForm(F).Height := ESPACIO_DE_TRABAJO.Bottom else begin if ESPACIO_DE_TRABAJO.Bottom < MaximaAltura then TForm(F).Height := ESPACIO_DE_TRABAJO.Bottom else TForm(F).Height := MaximaAltura; end; if ((MaximoAncho <> 0) or (MaximaAltura <> 0)) and (Centrado) then begin TForm(F).Left := (ESPACIO_DE_TRABAJO.Right - TForm(F).Width) div 2; TForm(F).Top := (ESPACIO_DE_TRABAJO.Bottom - TForm(F).Height) div 2; end; LockWindowUpdate(0); end; initialization SystemParametersInfo(SPI_GETWORKAREA, 0, @ESPACIO_DE_TRABAJO, 0); VENTANA_DE_TRABAJO := ESPACIO_DE_TRABAJO; end. 

Thanks to everyone who can help me!

Answer 1

Just catch the Minimize and Restore messages in Modal form and do it ...

 procedure TTheModalForm.WMSysCommand(var Msg: TWMSysCommand); begin if (fsModal in FormState) or not Application.MainForm.Visible then begin case Msg.CmdType of SC_MINIMIZE: begin ShowWindow(Application.Handle, SW_SHOWMINNOACTIVE); end; SC_RESTORE: begin ShowWindow(Application.Handle, SW_SHOWNORMAL); inherited; end; else inherited; end; end else inherited; end;