【结贴】系统下的日程。**

op+

如图：我想把日程放到右上角那里去，当我点击右上角的‘日程’它才会弹出来。日程是要当前操作者的日程。

怎么实现。我试了几中调用方法了。都说我隔离级错误。要怎么实现啊啊。代码怎么搞？

atiger

后面那几个任务中心、流程监控 这几个都ok吗？
如果ok，参考那些做就可以了

如果还不行，请把运行日程的代码帖出来看看，
并把运行任务中心的代码也帖出来看看

op+

后面几个我也没做。第一个都没做好。所以我才不知道该怎么调用~~~

op+

procedure TSTANDARDSTYLEMAINFORM.Image5Click(Sender: TObject);
var
   tmpform:SCHEDULERFUNC.TMAINFORM;
   lFunc: TFunc;
   tmpUniqueId:string;
begin
     tmpUniqueId:=TFuncManager.GetFuncUniqueID(context.parent,'Biz:\COLLABORATION\SchedulerFunc.Func','');
    lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
   tmpform:=SCHEDULERFUNC.TMAINFORM (SCHEDULERFUNC.TSCHEDULERFUNC(lFunc).MAINFORM);

end;

atiger

哦，
楼主应该没有看过“业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体”这里面怎么run功能的吧，你看看在这里是怎么run功能的
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);

op+

最初由 atiger 发布
[B]哦，
楼主应该没有看过“业务模型系统空间\简洁风格界面库\窗体库标准风格主窗体”这里面怎么run功能的吧，你看看在这里是怎么run功能的
procedure TSTANDARDSTYLEMA..

以下省略...... [/B]

不能耐心的看啊。客户就在旁边就要这样改。BZ帮我把代码帖出来吧。。我看了好乱，没看明白，我就是要屏蔽平台的日程功能，点击时候才会弹出日程。Biz:OABGZDHXTSCHEDULERFUNCChild.Func

Akon

procedure TSTANDARDSTYLEMAINFORM.UIRunFunc 你拿这个去搜，隔离级不存在是因为你传的Context不对

op+

恩。知道了。。搞定了。。。谢谢。