【结贴】计划中心问题

dynasty0628

继承的计划中心，如何去掉新增功能？就是在继承的这个功能里去掉新增删除等按钮，图中画红框的都不要

zfang

试试 设置它的visible属性。

dynasty0628

不是那么简单的啊
在原来的计划中心还想让他显示，只是在继承的功能里不显示
这个工具栏在   业务模型\协同系统\公共资源\面板库\计划导航

atiger

在继承的对象中，设置这个导航隐藏不行吗？
你吧窗体也继承下来，并把继承的功能的主窗体设置为继承的窗体，然后在继承的窗体上修改

dynasty0628

继承的问题我很清楚
不能简单的设置，原因是我只想隐藏那个计划导航中的一部分，另外一部分我还是想显示的

zfang

尝试一下这样：
加一个业务参数，然后通过这个业务参数来控制这些 按钮的隐藏。
它 调用的 是 业务模型\协同系统\公共资源\面板库\计划导航。

dynasty0628

6楼能说的明白一点么？
调用的东西我都找到了，在三楼也提了

zfang

就是说，你定义一个业务参数，然后你继承后的这个计划中心 中 对此参数赋值，这个参数在计划导航中用于 控制 那些控件是否显示。注意触发时机，请楼主试试，有问题再跟帖。

zfang

楼主，我已经测试通过了
先贴出我的步骤（不一定非要完全按下面的做法）
1、建立一个业务参数（隔离级：人员）
2、继承后的计划中心的DoRun方法重载，这里对此参数赋值为1
3、原来的计划中心 的DoRun方法重载，这里对此参数赋值为空
4、业务模型\协同系统\公共资源\面板库\计划导航 ，此Form的OnCreate事件中获取此参数的值，然后判断是1的就隐藏ToolButton1等，否则显示。

dynasty0628

谢谢！因为不想改系统原来的代码，所以没有采用这种方式。
实现方法：
新继承一个 我的功能--我的计划
然后在我的计划的FormDocCreate事件中一层层找到这些控件，然后隐藏。

procedure TWDJH.FormDocCreate(Sender: TObject);
var
  i: integer;
begin
Inherited;
with TPanel(TPanel(TPanel(pnlDocBarPlan.controls[0]).controls[0]).Controls[1]) do
begin
    for i:= 0 to ControlCount -1 do
    begin
      if not (SysUtils.SameText('tb7',Controls.Name) or SysUtils.SameText('BizToolBar',Controls.Name)) then
        Controls.Hide;
     end;
end;
end;