自己写代码控制吧，你的MDI窗体吧。你可以设子窗体的tag属性来做显示不显示的标志，比如1为不显示。比如你想把所有窗体加在一个名为menuitem1的菜单，可以像下面写代码：
var i:integer;
newMenuItem:TMenuITem;
for i:=0 to self.MDIChildCount-1do
begin
newMenuItem:=TMenuitem.create(self);
newMenuItem.caption:=self.MDIChildren.caption;
newMenuItem.onClick:=....;//单击事件，可以在里面写代码根本单击菜单项的caption找到对应的窗体并显示
...
end;
不过有点麻烦的地方是，你每次创建释放子窗体都要持行这个代码刷新，每添加这些菜单之前要先把原来都清掉
