我用Wizard建立的MDI程序的话上述功能已经自动实现了,但我想手动做一下,没有试出来。看源代码里也没有发现有什么特别的代码来实现那个功能,大家指点一下

解决方案 »

  1.   

    在主窗体的属性栏中将"windowmenu",设置为对应的菜单项即可.
      

  2.   

    sin_xt() 的正解。实现这一功能,不需要写代码的。
      

  3.   

    在主窗体的属性栏中将"windowmenu",设置为对应的菜单项,怎么设置??
    我设置了,但是只有自动排列阿,什么的,就是不能自动添加新的子窗口的名称
      

  4.   

    比如说你的主菜单中有以下一级菜单项: 文件(F)  窗口(W)  帮助(H)
    其中[窗口(W)]是Name是mnuWindow。
    那么,把你的主窗体的WindowMenu设置为mnuWindow。
    运行时,随着MDI窗体的打开,你会看到[窗口(W)]菜单项下面会自动添加上相应的MDI窗体标题的。
      

  5.   

    看不明白阿,我现在的主窗体的菜单都设置好了,如下:
    系统(S)  通道(C)  操作(O)  统计汇总(T)  基础资料(B)  窗口(W)  帮助(H)
    其中窗口(W)也已经设好了如下的东西:
    窗口(W)
     -重叠排列
     -水平排列
     -垂直排列
    ----------
     -工具条
    ----------
    我现在希望在上面的工具条的下面自动添加上相应的MDI窗体标题!
    该怎么做,难道在添加个MainMenu控件?!不可能啊![窗口(W)]是Name是mnuWindow----〉不明白这句话什么意思
    "把你的主窗体的WindowMenu设置为mnuWindow"----〉这句话也是不明白什么意思白!!!
      

  6.   

    "比如说...
    其中[窗口(W)]是Name是mnuWindow。"注意是"比如说",这个Name具体是什么,取决于你的程序设计。"那么,把你的主窗体的WindowMenu设置为mnuWindow。"
    你有没有找到主窗体的WindowMenu属性啊?
      

  7.   

    -->jadeluo(秀峰),谢谢,我找到这个属性了,设定好了,以后会用了,多谢。
      

  8.   

    在 窗口 这个菜单项的 OnClick 写代码,然后动态添加子菜单项。我这机子没有D,没有给你一个完整的代码了。TMDIMailForm.ChildFormMenuItemClick( Sender : TObject );
    var
      I : Integer;
      ChildItem: TMenuItem;
    begin
      
      ChildFormMenuItem.Items.Clear;   //清除掉之前加进去的.
      for Screen.MDIChildForm.Count -1 do
      begin
        ChildItem := TMenuItem.Create( ChildFormMenuItem );
        ...
        ChildFormMenuItem.Items.add( ChildItem );
      end;
      
    end;