起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 314|回复: 10

【结贴】知识中心问题:请何如何实现一登陆便出现这个界面**

[复制链接]
发表于 2007-9-3 17:02:07 | 显示全部楼层 |阅读模式
如图所示:如何实现一登录知识中心系统即显示“知识中心”目录下的一级子目录,并自动激活“在列表中显示目录”功能?因为每次进去都要点击一次,太麻烦了,这两步的点击是可以省略的。

bljzjm副本.jpg

123.27 KB, 下载次数: 170

回复

使用道具 举报

发表于 2007-9-3 17:11:57 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2007-9-3 17:12:43 | 显示全部楼层
修改协同常量库的static function TRTLConsts.RunFuncs: string;
回复 支持 反对

使用道具 举报

发表于 2007-9-3 17:19:32 | 显示全部楼层
第二个问题,在formshow里面修改所需要的button的状态。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-3 17:45:00 | 显示全部楼层
谢谢,我试一下啊。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-3 18:12:57 | 显示全部楼层
回:yancm
第一个问题:我是想实现这样的功能:我点击“知识中心” 打开知识中心窗口时,自动展开左边树形目录菜单。
第二个问题:如图,当刚进知识中心窗口时,展开树形目录,点击其中一个文件夹,右边没有出现相应 文件夹或文件记录 ,需要手工点击图中红色框中的菜单按钮才能显示, 如何让它自动显示?

111111111111副本.jpg

32.8 KB, 下载次数: 162

回复 支持 反对

使用道具 举报

发表于 2007-9-4 10:15:18 | 显示全部楼层
需要修改代码
\业务系统\知识中心\知识中心\知识中心\知识中心
procedure TDOCCENTERFORM.Init;        


    //初始化文档树选定节点
  lNode := DocCenterTreeBrowser.DocTreeView.BizTree.FindNodeByFullFileName('Doc:\DOC\F7E8B6372C7B403A90D03278A6FCDBE0');//TDocSystem.GetDocRoot);
  if lNode <> nil then
    DocCenterTreeBrowser.DocTreeView.SelectedNode := lNode as TDocNode;
  //默认显示文件夹
  actShowDirExecute(ToolButton11);
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-4 16:23:20 | 显示全部楼层
谢谢 jiahaiminghr ,按照楼上的方法,已经成功的解决了第二个问题,界面比原来好多了!请问第一个问题有无方法解决啊?

第一个问题:如图:我是想实现这样的功能:我点击“知识中心” 打开知识中心窗口时,自动展开左边树形目录菜单。

999999999副本.jpg

48.5 KB, 下载次数: 140

回复 支持 反对

使用道具 举报

发表于 2007-9-4 16:32:01 | 显示全部楼层
//初始化文档树选定节点
  lNode := DocCenterTreeBrowser.DocTreeView.BizTree.FindNodeByFullFileName('Doc:\DOC\F7E8B6372C7B403A90D03278A6FCDBE0');//TDocSystem.GetDocRoot);
  if lNode <> nil then
    DocCenterTreeBrowser.DocTreeView.SelectedNode := lNode as TDocNode;

这段代码就是在解决你的第一个问题的。
Doc:\DOC\F7E8B6372C7B403A90D03278A6FCDBE0这个字符串是你想要打开的文件夹路径
回复 支持 反对

使用道具 举报

发表于 2007-9-14 10:12:20 | 显示全部楼层
楼主请回馈
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-28 06:15 , Processed in 0.044201 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表