MDI程序，子窗体的Caption如何放在父窗体的Menu上，并响应事件？

Question

MDI程序，子窗体的Caption如何放在父窗体的Menu上，并响应事件？我现在的做法是如下：
procedure TForm1.testForm1Click(Sender: TObject);
var
  newMenu:TMenuItem;
begin
  if not Assigned(testForm) then  //先检测该窗口是否已存在，如果不存在就创建并Show
  begin
    testForm:=TtestForm.Create(Application);
    testForm.Show;    newMenu:=TMenuItem.Create(Application);  //创建菜单
    Window1.Add(newMenu);                    //并放在名为Windows的菜单下    newMenu.Caption:=testForm.Caption;  //为刚创建的菜单赋Caption
    newMenu.OnClick:=testForm1.OnClick;;  //把事件赋于该菜单
  end
  else
  begin
    testForm.Show;
    ShowMessage('just show');
  end;
end;这样做是能达到效果，只是想知道有没有更好的方法？
还有就是该子窗口关闭后，如何把这个昨时创建的Menu项给删除和释放？

Answer 1

很简单的！
代码就不写了，只提供思路！
建议将主界面的Menu用一个公共类来管理，用户登录验证通过后，
就从后台将该用户的权限菜单创建出来（没有权限的菜单可以变成灰色的，或者干脆就不显示出来）。
如果子窗体关闭时，就刷新这个公共类，自然的主窗体的菜单就会自动变化。