【结贴】工作台的 协同平台的 隐藏问题**

rzport_lq0

在协同平台下面 点击某个功能后。在运行功能的同时，如何隐藏 pnlFuncTree
这个控件？

zfang

最简单的方法是：
修改 业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);
方法
    lFunc := TSystemCore.FuncManager.FindRunning(lUID);
    if lFunc <> nil then
      TSystemCore.FuncManager.ActivateFunc(lFunc)
    else
      TSystemCore.FuncManager.RunFunc(lContext, lUID, AFuncURL, AParams, BeforeRunFunc, Modal);
    //添加调用
    HideFuncTree;

zfang

如果刚登陆进去想看到功能树，运行功能后自动隐藏功能树（包括激活功能）
那就按下面的修改方法：
//打开功能
procedure TSTANDARDSTYLEMAINFORM.DoFuncRun(Sender: TObject; AFunc: TFunc; Modal: Boolean);
  AddFunc(AFunc);
  //添加调用
  HideFuncTree;

//激活功能
procedure TSTANDARDSTYLEMAINFORM.DoFuncActivate(Sender: TObject; AFunc: TFunc);
  //添加调用
  HideFuncTree;

rzport_lq0

激活后面的那个不能加HideFuncTree;
加上了登陆系统的时候就看不到功能树了！！

zfang

哦，那你测试一下看看吧。
在这几个地方作修改就可以了。

lixy

那你问题解决了吧？

rzport_lq0

OK,结贴吧！