怎么样让主界面目录树响应单击事件呢？**

xjc

主要就是FFuncNavBar 对象，但他又继承自TOperatorFuncNavBar，看了一下代码不知怎么弄？ 比如就点如图所示的“协同系统”，让它响应单击事件呢?  
请各位大哥指点一下！

jiahaiming

帮助文件在
http://bbs.justep.com/forum.php?mod=viewthread&tid=13260
5楼

xjc

我用了这个了不能响应单击事件.
FFuncNavBar.OnLinkClick := OnXItemClick;

xjc

还有一个问题,我用系统提供类库,取不出来功能.
TCommonComponentLibrary.UserSystem.CurrentPosition.Operator.FuncItems

gaihl

楼上的问题:
1.引用: 业务模型\系统空间\系统运行库\系统核心库
2.使用  SystemCore.TSystemCore.Operator.FuncItems;

xjc

我加了核心库的啊, 编译报的这个错误.  
[错误]Biz:\SCGATJM\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\STANDARDSTYLEMAINFORM.FORM.PAS(2565, 35): 不能调用

gaihl

加核心库之前报6楼的错误吗?

xjc

就是

jiahaiming

请楼主把错误代码贴出来看看。注明是哪句报的错。

jiahaiming

楼主，邮件已经收到。
电话无法接通。

1楼问题，请参考：
系统空间\用户界面基础\界面库\组件库
procedure TOperatorFuncTreeView.Click;
var
  lNode: TTreeNode;
  lPoint: TPoint;
  lHitTests: THitTests;
begin
  inherited Click;
  if HotTrack then
  begin
    lPoint := Types.Point(0, 0); // 干掉警告
    JsCommon.OSCheck(Borland.Delphi.Windows.GetCursorPos(lPoint));
    lPoint := ScreenToClient(lPoint);
    lHitTests := GetHitTestInfoAt(lPoint.X, lPoint.Y);
    if not (THitTest.htOnItem in lHitTests) then
      Exit;
    lNode := GetNodeAt(lPoint.X, lPoint.Y);
    if Assigned(lNode) and (lNode = Selected) then
    begin
//jhm 功能树，文件夹，单击响应
      if (SelectedNode.NodeKind in [TBizObjectKind.boFolder, TBizObjectKind.boSpace]) then
        Business.Forms.jsDialogs.ShowMsg(SelectedNode.DisplayName, 'Folder');
      if (SelectedNode.NodeKind = TBizObjectKind.boFunc) then
      begin
       TSystemCore.BeginWaiting;
       try
          TSystemCore.FuncManager.RunFunc(FContext, '',
            SelectedNode.BizURL.URL, '', False, nil, False)
       finally
         TSystemCore.EndWaiting;
       end;
      end
      else
        // 只展开
        lNode.Expanded := True;
    end;
  end;
end;

4楼问题，应该是楼主使用有误，请提供出错的代码：
请参考：
Caption := SysUtils.IntToStr(SystemCore.TSystemCore.Operator.FuncItems.Count);