【结贴】从其他系统查询到任务列表直接单点登陆业务审批系统**

zhdkelly

要求单点登陆后发送完一个流程后能够直接关闭业务系统。

lixy

在什么系统查的，怎么发的流程？ 是启动平台了？还是只启动了单独窗体？

shangxy

可以设置一个全局参数或者变量来标记是单点登陆进来的还是正常登陆进来的，
在功能窗体关闭的时候或者截获流程事件根据这个标记来发消息调用标准风格主窗体的close方法。
关于消息的使用方法楼主可以在论坛中搜索一下。
关于流转事件的截获可以参考一下下面的帖子：
http://bbs.justep.com/forum.php? ... F%ED%2A%CF%FB%CF%A2

zhdkelly

//流程流转后操作（发送者）
procedure TYWCLJM_FORM.FlowBrokerAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
paramclose:=variants.VarToStr(TBaseFuncLib.GetBizParamValue(context,'Biz:GZSSZYLJYWSPXTQJCSZ.PARAMGROUP','GDZCTCS'));
  DataSet_Main.DataSet.ApplyUpdates;
  if(paramclose='1')then
   begin
     RefreshMessage:=TRefreshMessage.Create('CloseMainForm');
     RefreshMessage.SendParam:='CloseMainForm';
     BizSys.GlobalContext.SendMessage(RefreshMessage);
     end;
标准风格主窗体（接受者）
procedure TSTANDARDSTYLEMAINFORM.BizFormCreate(Sender: TObject);  
  RefreshMsgHandler:=TRefreshMsgHandler.Create; //创建消息处理者
    BizSys.GlobalContext.AddMessageHandler('CloseMainForm', RefreshMsgHandler);
    RefreshMsgHandler.RefreshMsgNotify:=HandleReFreshMessage;


标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.HandleReFreshMessage(AMessage: TBizMessage; var Handled: Boolean); //消息处理机制
var
  SendParam:String;
  Sender: TObject;
  Action: TCloseAction;
begin
  SendParam:=TRefreshMessage(AMessage).SendParam;  //检查传过来的变量
  if SendParam='CloseMainForm' then //流程扭转
    BizFormClose(Sender,Action);
  //ReFreshData;
  Handled:=True;
end;


流程扭转后，弹出下列框，窗体没有关闭

zhdkelly

又报如下错误

zhdkelly

还是报错

shangxy

我这里调试运行不出错，正式环境运行出错。
然后在标准风格主窗体中这段代码中sleep一会就没有问题了，楼主试试
procedure TSTANDARDSTYLEMAINFORM.BizFormDestroy(Sender: TObject);
begin
  FAutoRunFuncs.Free;
  FOrignActionList.Free;
  FPosStringList.Free;
  SysUtils.Sleep(100);
end;

zhdkelly

正式环境下还是报错：

zhdkelly

<script ID="BusinessCloseEventHandler" language="javascript" FOR="X3X" EVENT="OnTerminate">
  WebBrowser.ExecWB(45,1); // close window
浏览器javascript跟踪，上面这句报错

shangxy

把系统库传给我看看吧