Minimizar varios formularios a la vez

[Compuin]

Hola foro,

Estoy manejando 2 formularios o ventanas. Una tiene el MAIN del programa y el otro es llamado en forma NO MODAL.

Como podria hacer para que cuando el formulario que contiene el MAIN se minimize pueda minimizar los otros formularios abiertos. LO que quiero hacer es algo parecido a lo que se hace cuado el formulario es MDI pero sin utlilizarlos como tal

Atento a sus comentarios

[karinha]

Podrias poner una imagen para mejor comprender?

Creo que la mejor forma sea usando MDICHILD tipo asi:



saludos.

[karinha]

Direct link:

https://i.imgur.com/Ezs4zPC.png

[Compuin]

Podrias poner una imagen para mejor comprender?

Creo que la mejor forma sea usando MDICHILD tipo asi:



saludos.

Hola Joao,

Quiero hacer exactamente lo que hace MDI / MDICHILD entre 2 ventanas pero sin usar MDI

[cnavarro]

Mira a ver si te ayuda a implementarlo

viewtopic.php?f=3&t=36244&start=0&hilit=dialog+mdichild

[Compuin]

Mira a ver si te ayuda a implementarlo

viewtopic.php?f=3&t=36244&start=0&hilit=dialog+mdichild

Gracias maestro, funciona parcialmente ya que necesito:

- Que no sea Modal
- Que tenga boton de minimizar

Es posible incorporar esto?

[cnavarro]

No Modal es, si no no se prodría hacer
Pero, lo has probado?

[Compuin]

No Modal es, si no no se prodría hacer
Pero, lo has probado?

No modal pero me deja siempre el dialogo visible la idea es que lo compagine entre dialogos y al minimizar que se vaya a la barra de tareas

use NOWAIT y no me dio ese resultado

[nageswaragunupudi]

Add this code to the main window, before activating it.

Code: Select all  Expand view  RUN

  oWnd:bResized  := <|nType|
      local aWnd  := GetAllWin()
      if nType == 1
         AEval( aWnd, { |o| If( o:ClassName == "TWINDOW" .and. o:hWnd != oWnd:hWnd, ;
                            o:Iconize(), nil ) } )
      endif
      return nil
      >
 

[Compuin]

Add this code to the main window, before activating it.

Code: Select all  Expand view  RUN

  oWnd:bResized  := <|nType|
      local aWnd  := GetAllWin()
      if nType == 1
         AEval( aWnd, { |o| If( o:ClassName == "TWINDOW" .and. o:hWnd != oWnd:hWnd, ;
                            o:Iconize(), nil ) } )
      endif
      return nil
      >
 

Hello Mr Rao, sorry I couldn't gei it

Code: Select all  Expand view  RUN

#include "fivewin.ch"

#define AS_DIALOG

function Main()

   local oWnd, oBar, oMenu

   SetGetColorFocus()

   DEFINE WINDOW oWnd MDI TITLE "DIALOG IN WINDOW"
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007

   DEFINE BUTTON OF oBar PROMPT "DIALOG"     CENTER ACTION CreateDialog( AS_DIALOG )

   ACTIVATE WINDOW oWnd

return nil


static function CreateDialog( nAs )

   local oDlg

   DEFINE DIALOG oDlg TITLE "DIALOGO" ;
   STYLE nOr( WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME,;
                               WS_MINIMIZEBOX )


   ACTIVATE DIALOG oDlg CENTERED NOWAIT

return oDlg

[nageswaragunupudi]

Non modal resizable dialogs are always minimized when the main window is minimized.
You do not have to write any special code to do that.
Test this program:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function TestMin()

   local oWnd, oBar

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   DEFINE BUTTON OF oBar PROMPT "Dialog" ACTION OpenDlg()

   oWnd:nWidth    := 800
   oWnd:nHeight   := 600

   ACTIVATE WINDOW oWnd CENTERED

return nil

function OpenDlg()

   local oDlg

   DEFINE DIALOG oDlg RESIZABLE
   ACTIVATE DIALOG oDlg CENTERED NOMODAL

return nil
 

If the main window is minimized, the non-modal dialog also is minimized.

Instead of writing this long:

Code: Select all  Expand view  RUN

  DEFINE DIALOG oDlg TITLE "DIALOG" ;
   STYLE nOr ( WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME ;;
                               WS_MINIMIZEBOX )
 

you can simply write

Code: Select all  Expand view  RUN

DEFINE DIALOG oDlg TITLE "DIALOG" RESIZABLE
 

[Compuin]

Non modal resizable dialogs are always minimized when the main window is minimized.
You do not have to write any special code to do that.
Test this program:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function TestMin()

   local oWnd, oBar

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   DEFINE BUTTON OF oBar PROMPT "Dialog" ACTION OpenDlg()

   oWnd:nWidth    := 800
   oWnd:nHeight   := 600

   ACTIVATE WINDOW oWnd CENTERED

return nil

function OpenDlg()

   local oDlg

   DEFINE DIALOG oDlg RESIZABLE
   ACTIVATE DIALOG oDlg CENTERED NOMODAL

return nil
 

If the main window is minimized, the non-modal dialog also is minimized.

Mr Rao,

Setting the dialog as NOMODAL works as I want. The only issue is when I minimize them, I can not find them on the taskbar

How could I solve this???

[nageswaragunupudi]

That is Windows' behavior.
But when the main window is restored, the non-modal dialogs are also restored.

[Compuin]

That is Windows' behavior.
But when the main window is restored, the non-modal dialogs are also restored.

Yes, thanks a lot