Destruir Menu

[carlos]

Feliz Año nuevo a todos, que tengamos un año muy prospero con Xailer y
nuestra vidas en General.
Problema
Tengo un Menu en un Formulario Principal, al abril un MDIChild, agrego al
Menu del Formulario Principal el Menu del Formulario MDIChild llamante,
ahora bien, como le hago para eliminar el menu agregado al formulario
principal cuando cierro el formulario llamante?.
Lo que tengo en el formulario llamante es esto a ver si me dicen que hay
mal, a mi me trabaja, pero no creo que sea la mejor solucion, estoy seguro
que alguna mejor solucion ustedes tendran.
MENU oMenu
MENUITEM "&Menu Hijo" //ACTION TMdiChild():New( Self ):Show()
MENU ::oSub
MENUITEM oSub2 TEXT "&Carlos" // ACTION ::oMdiClient:Tile()
MENUITEM oSub2 TEXT "&Latty" // ACTION ::oMdiClient:Cascade()
MENUITEM oSub2 TEXT "&Roberto" + TAB + "Ctrl+F6" //ACTION
::oMdiClient:Next()
SEPARATOR
MENUITEM oSub2 TEXT "La Guera" //ACTION //::oMdiClient:CloseAll()
ENDMENU
ENDMENU
WITH OBJECT ::oSub1 := TMenuItem():New(::oParent:oMenu )
:cText := oMenu:aItems[1]:cText
:Create()
END
::oSub1:AddMenu( ::oSub )
Application:oMainForm:oMdiClient:aForms[ 1 ]:SetFocus()
RETURN Nil
Aqui lo que hago
oSub1:Destroy() y no me lo destruye
Gracias

[ignacio]

Carlos,
Toda la gestión de menú para las distintas Child abiertas lo hace
automáticamente Xailer. Compruebe el siquiente código del ejemplo MdiSample
que incluye Xailer:
MENU oMenu
MENUITEM "&New child window" ACTION TMdiChild():New( Self ):Show()
MENUITEM oSub CAPTION "Windows"
MENU
MENUITEM "&Mosaic" ACTION ::oMdiClient:Tile()
MENUITEM "&Cascade" ACTION ::oMdiClient:Cascade()
MENUITEM "&Next Window" + TAB + "Ctrl+F6" ACTION
::oMdiClient:Next()
MENUITEM "&Previous Window" + TAB + "Shift+Ctrl+F6" ACTION
::oMdiClient:Previous()
SEPARATOR
MENUITEM "Close All" ACTION ::oMdiClient:CloseAll()
ENDMENU
ENDMENU
::oMenu := oMenu
::oMdiMenu := oSub:oSubMenu
Saludos,
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:43c5a631$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Feliz Año nuevo a todos, que tengamos un año muy prospero con Xailer y
> nuestra vidas en General.
>
> Problema
>
> Tengo un Menu en un Formulario Principal, al abril un MDIChild, agrego al
> Menu del Formulario Principal el Menu del Formulario MDIChild llamante,
> ahora bien, como le hago para eliminar el menu agregado al formulario
> principal cuando cierro el formulario llamante?.
>
> Lo que tengo en el formulario llamante es esto a ver si me dicen que hay
> mal, a mi me trabaja, pero no creo que sea la mejor solucion, estoy seguro
> que alguna mejor solucion ustedes tendran.
>
> MENU oMenu
> MENUITEM "&Menu Hijo" //ACTION TMdiChild():New( Self ):Show()
> MENU ::oSub
> MENUITEM oSub2 TEXT "&Carlos" // ACTION ::oMdiClient:Tile()
> MENUITEM oSub2 TEXT "&Latty" // ACTION ::oMdiClient:Cascade()
> MENUITEM oSub2 TEXT "&Roberto" + TAB + "Ctrl+F6" //ACTION
> ::oMdiClient:Next()
> SEPARATOR
> MENUITEM oSub2 TEXT "La Guera" //ACTION //::oMdiClient:CloseAll()
> ENDMENU
> ENDMENU
>
> WITH OBJECT ::oSub1 := TMenuItem():New(::oParent:oMenu )
> :cText := oMenu:aItems[1]:cText
> :Create()
> END
> ::oSub1:AddMenu( ::oSub )
> Application:oMainForm:oMdiClient:aForms[ 1 ]:SetFocus()
> RETURN Nil
>
> Aqui lo que hago
>
> oSub1:Destroy() y no me lo destruye
> Gracias
>