como impedir abrir una window 2 veces

[lafug]

Como hago para controlar cuando abro una ventana desde un menú, ésta no se vuelva abrir?, ya que esto hace que se vayan "acumulando en la barra de tareas"

Muchas gracias de antemano por sus comentarios

[horacio]

Si lo haces desde un menú, deshabilitando esa opción y si es desde un button lo mismo

Saludos

[FranciscoA]

Lafug, aqui tienes un pequeño ejemplo:
//----------------------------------------------------------------------------//
Function BuildMenu()
local oMenu, oItem1

MENU oMenu 2007
MENUITEM oItem1 PROMPT "&Fichero"
MENU
MENUITEM "&Mi ventana" ACTION Miventana(oItem1)
MENUITEM "&Salir..." ACTION oWnd:End() MESSAGE "Finalizar esta sesion"
ENDMENU
ENDMENU
//------------------------------
Function MiVentana(oItem1)
-----
oItem1:Disable()
.....
ACTIVATE WINDOW oMiVentana

VALID ( oItem1:Enable() , .t. )
Return nil

Saludos.

[compubrion]

Saludos !

Otra forma, para no abrir mas de una vez
declara la variable que identifica la venta como static y la controlas asi

Code: Select all  Expand view

STATIC oWndChild
*--
FUCNTION GRUPOS()
*--
LOCAL A,B,C,-......

IF oWndChild == NIL
   Define window oWndChild bla,bla
   Activate Widnow oWndChild;
   Valid( oWndChild := NIL, .T. )
ELSE
    oWndChild:SetFocus()
ENDIF
 

[karinha]

Code: Select all  Expand view

#Include "Fivewin.Ch"

Static oWnd, lAbertura := .F.

Function Bmp_Rand( cWidth, cHeight )
 
    // Para Impedir Uma 2a Abertura de Janela!!!
    IF lAbertura = .F.

        lAbertura := .T.

     ELSE

        MsgInfo( OemToAnsi( "Esta Janela J  Est  em Uso..." +CRLF+ ;
                            "Verifique Rodap‚ do  Windows." +CRLF+ ;
                            "Ou Minimize o Programa...    " +CRLF+ ;
                            "Pois Ela  Pode Estar Por Tr s" +CRLF+ ;
                            "do Menu Principal. Verifique!"),      ;
                            "Verifique, Por Favor!" )

        RETURN NIL

    ENDIF

    DEFINE WINDOW oWnd            ;
           FROM 6.70, 5 TO 34, 95 ;
           BRUSH oBrush           ;
           ICON  oIco             ;
           NOZOOM                 ;
           NOSYSMENU              ;
           BORDER SINGLE          ;

    // ....

    ACTIVATE WINDOW OWND ;
             VALID( PorFalso( @lAbertura ) )

RETURN NIL

FUNCTION PorFalso( lVariavel )

   lVariavel := .F.

RETURN( .T. )
 



[MarioG]

Una buen opción:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19420&hilit=TWCapture#p102319

Saludos

[lafug]

Gracias a todos! por sus respuestas, me quedé con la solución de compubrion

saludos y gracias de nuevo!