【结帖】如何用代码关闭功能**

cdz0451

不是啊，我做的那个功能没有窗体。。。。你看怎么办

zfang

那可以这样
var
  lFunc: TFunc;
begin
  lFunc := CurrentFunc;
  if lFunc <> nil then
    TSystemCore.FuncManager.TerminateFunc(lFunc, False);
end;

dynasty0628

id不对,不是那个
RuncFunc里那个AUniqueID参数,默认有个规则好象
AUniqueID：创建功能时的唯一标识，首先在环境下按照UniqueID寻找这个功能是否已经创建，如果已经存在就激活功能页，如果不存在就创建一个功能实例。如果UniqueID为空，则UniqueID的取值规则为：
       AFuncURL + '||' + AParams + '||' + ADeptID + '||' + APositionID + '||' + APersonID;

cdz0451

lFunc := CurrentFunc 说这个无法 识别 是不是要引入什么？

zfang

楼主，目前的版本先请参考
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体中的
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);
var
  lContext: TContext;
  S, lUID: string;
  lFunc: TFunc;
begin
  lUID := AUniqueID;
  if lUID = '' then
  begin
    // 暂时一个功能只能运行一份实例, 不同参数的功能，允许多份实例
    lUID := AFuncURL + '.MainForm.Run' + '|' + AParams;
  end;

  lFunc := TSystemCore.FuncManager.FindRunning(lUID);
  if lFunc <> nil then
  begin
    TSystemCore.FuncManager.ActivateFunc(lFunc);
    Exit;
  end;


目前程序里调用的话，参考
var
  lFunc: TFunc;
begin
  lFunc := SystemCore.TSystemCore.FuncManager.FindRunning('FUNCURL'+ '.MainForm.Run' + '|' +'');
  if lFunc <> nil then
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc,false);
具体看楼主自己的代码处理了

zfang

不过3000版本将不采用这种方式，将采用下面的方式：
业务模型\系统空间\系统运行库\系统核心库
static function TFuncManager.GetFuncUniqueID(const AFuncURL, AParams, ADeptID, APositionID, APersonID: string): string;
begin
  Result := AFuncURL + '||' + AParams + '||' + ADeptID + '||' + APositionID + '||' + APersonID;
end;

cdz0451

关一个功能这么费尽啊。。。

cdz0451

15楼的啥意思？ 12楼的代码能用么？

zfang

看15楼最后的参考代码，一个功能关闭另外一个功能（当然了，包括自己关闭自己）。

cdz0451

15楼的代码有个 ‘哭’的表情。。。那是什么代码 把那个关闭的再发一下