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

解决方案 »

  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;
      

类似问题 »