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 ![]()
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
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 ![]()
Si lo haces desde un menú, deshabilitando esa opción y si es desde un button lo mismo
Saludos
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.
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#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. )Gracias a todos! por sus respuestas, me quedé con la solución de compubrion
saludos y gracias de nuevo!