【结贴】新建按钮**

lotus

请问我的系统本来是下图的效果，但是我想实现二楼的效果

lotus

要变成的效果

lotus

有没有办法  
？

jiahaiminghr

需要楼主自己研究一下计划中心的相关代码了。

这个新建菜单应该是代码控制的。

lotus

procedure TPLANCENTERINFO.InitNewMenus(AParentItem: TMenuItem);
var
  lItem: TMenuItem;
begin
  lItem := TMenuItem.Create(AParentItem);
  lItem.Caption := '子计划';
  AParentItem.Add(lItem);
  RealInitNewMenus(lItem, True);
  RealInitNewMenus(AParentItem, false);
  //RealInitNewMenus(AParentItem, True);
end;

是不是这段代码，由于对代码不熟悉，能否指点下，谢谢了！

jiahaiminghr

看代码似乎是这段，很抱歉，我也对计划部分也不太熟悉，楼主尝试着改一下吧，如果出什么错误了我们再沟通。

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。