【结贴】新闻公告侧边显示**

rzport_lq0 · 发表于 2008-9-12 16:46:07

如何让新闻公告显示在如图所示的地方？

rzport_lq0 · 发表于 2008-9-12 17:34:16

怎么没有人回答啊

jiahaiming · 发表于 2008-9-12 17:56:07

标准风格主窗体上加一个信息代理和docview
，doc引用
业务模型\业务系统\产品OA\信息发布_New\基类\信息导航基类\导航基类(右面板)
然后在标准风格主窗体的代码上修改
procedure TSTANDARDSTYLEMAINFORM.AddBars;
begin
{  DockStub.AddClient('FuncNavBar', FFuncNavBar, nil);
   [FFuncNavBar], TDockKind.dkAutoHide, TDockSide.alLeft);
   [OrgTreeView], TDockKind.dkAutoHide, TDockSide.alLeft);}
  DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);
  DockStub.AddClient('DocRelevancyNavBar', FDocRelevancyNavBar, nil);
  DockStub.AddClient('NEWSPLACARD', pnlNews, nil);//加入自己的docview×××××××
  // TODO: 修改记录目前不显示 DockStub.AddClient('EditLogNavBar', FEditLogNavBar, nil);
end;
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
begin
....
DockStub.InitControlConfigs(['NEWSPLACARD'], ['新闻公告'], [nil], 170, 200, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide]);
....
end;
楼主我没有oa，未测试，原理就是这样的。

rzport_lq0 · 发表于 2008-9-13 09:50:55

还是显示不出来

zfang · 发表于 2008-9-13 20:41:11

怎么会呢？你是不是按照3楼的方法做的？
我照着3楼的做法可以实现啊。（我在主界面里放了一个panel，infobroker，docview，引用业务模型协同系统\任务任务中心信息\任务导航(待办)）
效果图如下

rzport_lq0 · 发表于 2008-9-16 09:43:00

现在可以了。以前没有放panel，他们就关联不上了。
先别结贴

zfang · 发表于 2008-9-16 09:50:49

还有什么问题吗？

rzport_lq0 · 发表于 2008-9-16 10:02:02

我引用
业务模型\业务系统\产品OA\信息发布\基类\信息导航基类\导航基类(右面板)
中的按钮的事件怎么是空的？
OpenTask(' ');
有好多不是当前存在的公告，却显示出来了。

zfang · 发表于 2008-9-16 10:13:52

应该是过滤条件有问题吧。
你引用业务模型\业务系统\产品OA\信息发布_New\基类\信息导航基类\导航基类(右面板)看看呢。

rzport_lq0 · 发表于 2008-9-16 10:16:35

我上面没有那个

		自动登录	找回密码
密码			立即注册