【结贴】RunFunc功能间调用**

刺青

用SystemCore.TSystemCore.FuncManager.RunFunc()实现:A功能调用B功能

如果B功能已存在,则把存在的B功能激活
如果B功能不存在,则创建

刺青

用的是3088版本

zfang

参考【业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体】
UIRunFunc

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=14815
http://bbs.justep.com/forum.php?mod=viewthread&tid=20448

刺青

哎~~~看了半天,很多地方不明白,
看下我的错误,帮忙改正一下.

zfang

你参考这个代码吧。
procedure TMAINFORM.Button5Click(Sender: TObject);
var
  I: Integer;
  S: string;
  lFunc: TFunc;
  lFuncIsRunning: Boolean;
  tmpUniqueId:string;
begin
  //被调用的功能url
  S := 'Biz:\CSLZ\GNA.Func';
  for I := 0 to TSystemCore.FuncManager.RunningFuncCount - 1 do
    if SysUtils.UpperCase(TSystemCore.FuncManager.RunningFuncs[I].BizClassURL.BizURL.URL) = SysUtils.UpperCase(S) then
    begin
      lFuncIsRunning := True;
      break;
    end
    else
      lFuncIsRunning := False;
  if not lFuncIsRunning then
    SystemCore.TSystemCore.FuncManager.RunFunc(Context.Parent,'',SysUtils.UpperCase(S) ,  '', nil, False)
  else
  begin
    tmpUniqueId:= SYSTEMCORE.TFuncManager.GetFuncUniqueID(context.parent, SysUtils.UpperCase(S),'');
    lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);

    TSystemCore.FuncManager.ActivateFunc(lFunc) ;
  end;

end;

刺青

如果没有传递参数的时候,是没有问题的
但是一有参数,没能正确的激活相应的窗体
试了好久,没能解决,

刺青

这个功能是用了参数来创建的S := 'Biz:\CSLZ\GNA.Func'
返回的时候,就不能激活相应的功能了!!
大哥大姐,帮帮忙啊

lixy

既然已经返回了tfunc对象，就可以调用  TSystemCore.FuncManager.ActivateFunc(lFunc) ;

刺青

是可以调用TSystemCore.FuncManager.ActivateFunc(lFunc) ;
但是调用之后,激活的窗体不是我想要的!
激活错误!