Dialog

[Patricio Avalos Aguirre]

Estimados

Se puede hacer que en una Dialog se pueda minimizar cuando se presione en su ventana principal, sin ser MDI

Necesito ya que aveces uno requiere minimizar y no se puede ya que existe el dialogo, y hay que presionar el boton escritorio, pero este minimiza todo

ejemplo

Code: Select all  Expand view

    DEFINE WINDOW _oWnd TITLE "Ventana principal"                               ;
        COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )                    ;
        MENU BuildMenu()                                                                ;
        MENUINFO 2                                                                      ;
        ICON oIco                                                                       ;
        MDI

    ACTIVATE WINDOW _oWnd MAXIMIZED                                    


static function BuildMenu()
    local oMenu

    MENU oMenu  2007
        MENUITEM "&Administración" ACTION xFuncion()
    ENDMENU

return( oMenu )


function xFuncion()
local oAbt
DEFINE DIALOG oAbt TITLE "Acerca de..." RESOURCE "ABOUT"
ACTIVATE DIALOG oAbt CENTERED
return( nil )

 

[wmormar]

Patricio,

Se puede hacer que se minimize el dialogo, pero con eso no dejará hagas otra cosa en la ventana principal.

O hacerlo de la siguiente manera:

Code: Select all  Expand view

   DEFINE WINDOW _oWnd TITLE "Ventana principal"                               ;
        COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )                    ;
        MENU BuildMenu()                                                                ;
        MENUINFO 2                                                                      ;
        ICON oIco                                                                       ;
        MDI

    ACTIVATE WINDOW _oWnd MAXIMIZED                                    


static function BuildMenu()
    local oMenu

    MENU oMenu  2007
        MENUITEM "&Administración" ACTION xFuncion()
    ENDMENU

return( oMenu )


function xFuncion()
local oAbt
DEFINE DIALOG oAbt TITLE "Acerca de..." RESOURCE "ABOUT"
ACTIVATE DIALOG oAbt CENTERED NOWAIT
return( nil )

 

[Patricio Avalos Aguirre]

Gracias por responder

funciona con la opcion NOWAIT, pero este puede entrar a otros módulos, lo cual no quiero, solo que pueda minimizar

se podra hacer sin la opcion NOWAIT, una vez lei algo de "parent", pero no logro ubicarlo