|
我用代码,调用了一个功能:
lFunc:=SysTemCore.TSystemCore.FuncManager.FindRunning(lTmpStr);
if Assigned(lFunc) then
begin
SystemCore.TSystemCore.FuncManager.ActivateFunc(lFunc);
Exit;
end;
lContext := TContext.Create(Context.Owner, Context.Parent);
lFunc:=SystemCore.TSystemCore.FuncManager.CreateFunc(lContext, lTmpStr);
lFunc:=SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', lTmpStr ,strSfwbh, nil, False);
end;
不能流下去,为什么呢?
|
|