我的程序界面是一个菜单，我自定义一个“常用工具栏”，怎样在菜单窗口中显示它？用这各方法可显示，但一运行其中一个表单1后（这个表单是模式表单，而且是没有controlbox的），我的菜单就会不见了，只剩下那个自定义工具栏了，这个表单1退出后也不行。有没有办法解决这个问题。我想用_SCREEN.addobject但用不好。。。

set sysmenu off
DO 菜单3.mpr
WITH _SCREEN.addobject

 .Icon='digg.ico'

 .visible=.T.
.left=80
.top=120

 .Caption="*********管理理系统"

 .picture ="8982.jpg"
.Height=520
.Width=900

 .MaxButton=.F.

 
ENDWITH

set classlib to appclass

　　toolbars = createobject('appclass.常用工具栏')

　　toolbars.show

　　toolbars.dock(0)

on shutdown do quit.prg
READ events

表单INIT事件代码

THISFORM.ADDPROPERTY([MYTOOLBAR],[])
LCFILE=SYS(1271,THISFORM)
DO JUSTPATH(LCFILE)+"\XTMENU.MPR" WITH THISFORM,.T.
THIS.SHOW &&先显示表单，否则工具栏会一直被表单覆盖
IF TYPE("THISFORM.MYTOOLBAR")="O" AND !ISNULL(THISFORM.MYTOOLBAR)
    RETURN
ENDIF
SET CLASSLIB TO JUSTPATH(LCFILE)+"\TOOLBARS.VCX" ADDITIVE
THISFORM.MYTOOLBAR=CREATEOBJECT("MYTOOLBAR")
THISFORM.MYTOOLBAR.DOCK(0)&&将工具栏停靠在顶层表单窗口中
THISFORM.MYTOOLBAR.SHOW
RELEASE CLASSLIB JUSTPATH(LCFILE)+"\TOOLBARS.VCX"

试试

用顶层表单作主窗口，主菜单和工具栏都放在这个顶层表单中，就不会出现这种情况了。