打开form的名称怎么新加入MainMenu

Question

我打一个form时，在MainMenu新增一行form名称，当form不在当前状态时可以调出来，
form关闭时，在MainMenu退出

Answer 1

假设MainMenu1只有一个项，其index是0
var
 mItem:TMenuitem;
begin
 mItem:=Tmenuitem.create(MainMenu1);
 mitem.caption := form1.name;
 MainMenu1.items[0].add(mItem);// 插入个菜单项
//  删除用MainMenu1.items[0].remove(mItem) 或delete(index) 
// 你可以在form1的create时间中添加菜单项，在form1的close时间中移除菜单项
end;