|
现在我们正式服务器电子审批里有一条待办任务,只要一点开,IE或者business直接就停止响应,我用Stutio初始化运行,调试发现,会报一个下图所示的错误,然后就卡在标准风格主窗体的代码里死循环,不停的报这个错,我把程序卡住的代码贴出来,
---------------------------------------------------------------------------------------
procedure TSTANDARDSTYLEMAINFORM.actFlowBackUpdate(Sender: TObject);
begin
actFlowBack.Enabled := (CurrentFlowControl <> nil) and
(CurrentFlowControl.CanFlowBack)---------------------此步显示抱错
end;
---------------------------------------------------------------------
procedure TSTANDARDSTYLEMAINFORM.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
if (FCurrentFuncContainer = nil) or FCurrentFuncContainer.IsPersistent then
begin
fbtClose.Enabled := False;
if fbtClose.FrontFrames <> 'DisableFrame' then
fbtClose.FrontFrames := 'DisableFrame';
end
else begin
fbtClose.Enabled := True;
if fbtClose.FrontFrames <> 'ImageTextFrame' then
fbtClose.FrontFrames := 'ImageTextFrame';
end;
actFlowBack.Update;---------------------------------------------此步骤显示报错
fbtPrev.Enabled := actFlowBack.Enabled;
if fbtPrev.Enabled then
begin
if fbtPrev.FrontFrames <> 'ImageTextFrame' then
fbtPrev.FrontFrames := 'ImageTextFrame';
end
else begin
if fbtPrev.FrontFrames <> 'DisableFrame' then
fbtPrev.FrontFrames := 'DisableFrame';
end;
actFlowOut.Update;
fbtNext.Enabled := actFlowOut.Enabled;
if fbtNext.Enabled then
begin
if fbtNext.FrontFrames <> 'ImageTextFrame' then
fbtNext.FrontFrames := 'ImageTextFrame';
end
else begin
if fbtNext.FrontFrames <> 'DisableFrame' then
fbtNext.FrontFrames := 'DisableFrame';
end;
actFlowAbortTask.Update;
actFlowAbortTask.FlowControl := CurrentFlowControl;
fbtAbort.Enabled := actFlowAbortTask.Enabled;
if fbtAbort.Enabled then
begin
if fbtAbort.FrontFrames <> 'ImageTextFrame' then
fbtAbort.FrontFrames := 'ImageTextFrame';
end
else begin
if fbtAbort.FrontFrames <> 'DisableFrame' then
fbtAbort.FrontFrames := 'DisableFrame';
end;
end;
|
|