【搞定】如何修改工作台？谢谢！**

smilemorning

1：如何只显示工作台，不要日程
2：如何让工作台只显示待办任务和提交任务，包括右边的任务
   中心和计划中心等统统不要
3：在不改变窗口工具条的前提下如何让添加变为点击弹出另外
   一个功能窗口

附图
在线等，谢谢！

smilemorning

图2：

smilemorning

RunFuncs := 'Biz:\COLLABORATION\DesktopFunc.Func;' +
    'Biz:\COLLABORATION\SchedulerFunc.Func';
第一行是工作台，第二行是日程。可是我把第二行注销了在运行平台里还是显示日程。

smilemorning

还没回答么？一会不顶就沉下来了！

atiger

第一个问题，我测试了，只写 RunFuncs := 'Biz:\COLLABORATION\DesktopFunc.Func'; 这个就不显示日程了。你屏蔽后，编译，签入了吗？如果没有肯定不行，请再检查一下。

第二个问题，近期会公布出来。公布后通知你们

第三个问题，那就截获数据导航的按钮，在导航的BeforeAction上做，

smilemorning

如何截获它的添加按钮，没有用DELPHI写过东西！

smilemorning

简单点说，如果我想让它在点击添加按钮的时候打开Biz:\OPERATION\PJGLXT\PJZLGL.Func功能，应该怎么写？谢谢！

atiger

第三个问题，那就截获数据导航的按钮，在导航的BeforeAction上做，

就是说在BeforeAction，去截获判断点击的是否是添加按钮，如果是，那么直接run功能

判断是否是添加按钮参考：
http://bbs.justep.com/forum.php?mod=viewthread&tid=517

Run功能参考：
http://bbs.justep.com/forum.php?mod=viewthread&tid=1297

smilemorning

代码已写好，编译通过。但是点击没有弹出窗口，没效果。麻烦看看代码，还有跟踪调试后点任何功能没有反应。
implementation

procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject);
      var
         lAddForm : PJZLGL.TMAINFORM;


begin
lAddForm :=  PJZLGL.TMAINFORM.Create(self.Context);
   case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetAppend:
      try
        lAddForm.ShowModal;
          finally
            lAddForm.Free;
end;
  end;
    end;
      end.

smilemorning

一会不顶就沉到海底了！