【结】流程图显示不出来

qq127hb · 发表于 2010-7-1 11:23:19

代码如下：
procedure TBD_AQFXTX_LCTBD.ShowFlowTrack(AFlowGuid : string);
var
lFlow : TFlow;
begin
   if AFlowGuid <> '' then
   begin
      lFlow := TFlow.Create;

      Flow.FlowEngine.LoadFlow(AFlowGuid, lFlow);//加载流程数据

      if lFlow <> nil then
      begin
            FlowTrackView1.Flow := lFlow;
            lFlow.Refresh;
      end;

      lFlow.Free;
   end;
end;

第一次调用时，FlowTrackView1的流程图显示正常。
但切换AFlowGuid然后再次调用，FlowTrackView1的流程图就变空白了，不知什么原因。

atiger · 发表于 2010-7-1 15:07:32

在
FlowTrackView1.Flow := lFlow; 前面加上一句
FlowTrackView1.Flow := nil;
就可以了
你试试

qq127hb · 发表于 2010-7-1 15:23:59

to 2楼
在
FlowTrackView1.Flow := lFlow; 前面加上一句
FlowTrackView1.Flow := nil;

多切换几次调用后系统报错

qq127hb · 发表于 2010-7-1 15:26:53

调试发现是这句报错FlowTrackView1.Flow := nil;

qq127hb · 发表于 2010-7-1 15:28:36

如图

atiger · 发表于 2010-7-1 15:33:33

我这里是正常的，请问楼主的版本是多少？

qq127hb · 发表于 2010-7-1 17:18:26

版本是2827
这个错误是在切换调用多次后出的

qq127hb · 发表于 2010-7-1 18:08:29

找到原因了：

fbtvView.Flow:=lFlow;
finally
lFlow.free;
用这个对象赋值以后，再释放这个对象，流程图中用到lFlow时候自然会报错了

解决办法：
lFlow做为窗体的全局变量。

atiger · 发表于 2010-7-2 10:35:03

ok，结，谢谢楼主共享方法

		自动登录	找回密码
密码			立即注册