|

楼主 |
发表于 2008-1-8 11:17:55
|
显示全部楼层
调用该功能的代码:procedure TYJXX.BizFormCreate(Sender: TObject);
var
lFunc: TFunc;
lTmpStr: string;
lContext: TContext;
begin
lTmpStr:='Biz:\COLLABORATION\JUSTEPMAIL.FUNC';
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 , '', nil, False);
self.Free;
end;
如果去掉self.Free;就不报错...不过不能实现我的需求...(我的需求是我做了一个窗体来调用邮件功能,要实现的是被调用的功能(邮件功能),然后调用功能的窗体不显示) |
|