【结】资源集窗体调用空对象问题

matthaus · 发表于 2010-5-5 09:10:26

如下图，一个公共函数资源集中的方法调用另一个公共窗体库资源集中的窗体并弹出这个窗体，然后释放该窗体对象，但第二次调用并弹出这个窗体时出现系统提示空对象错误，代码如下图，不知道原因在哪儿，帮忙看看吧。

atiger · 发表于 2010-5-5 09:47:50

因为不知道你是怎么写的，我的代码参考如下，测试是ok的

资源集中的代码
...
  public
  procedure ButClick(Sender: TObject);
...
procedure TZYJ2.ButClick(Sender: TObject);
var
  lform : ZYJ1.TCT1;
  AContext : Business.Model.Tcontext;
begin
  AContext := Self.context;
  lform := ZYJ1.TCT1.create(AContext) ;
  try
lform.showModal;
  Finally
lForm.Free;
  end;
end;
...

功能中调用资源集的代码
...
public
procedure BitBtn1Click(Sender: TObject);
...

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
  LZYJ:ZYJ2.TZYJ2;
begin
  LZYJ := ZYJ2.TZYJ2.Create(self.Context) ;
  try
LZYJ.ButClick(sender);
  finally
LZYJ.Free;
  end;
end;
...

matthaus · 发表于 2010-5-5 10:04:31

我的过程是功能中调用资源集A中的另一个方法penPic(),这个方法中会创建一个panel并且把panel
的点击事件用资源集A中的butClick(sender:TObject)方法赋值即panel.OnCLick=butClick，从而达到功能运行后点击panel调用butClick(sender:TObject)方法的目的。而butClick方法会调用并弹出另一个资源集的窗体lForm，是不是这样窗体lForm只能创建一次呢,？要不然为什么第一次点击panel
窗体lForm能弹出来，关闭之后再点击panel后lForm弹不出来，且系统提示地址访问错误，跟踪了
一下代码发现lForm是空对象。请问这样的逻辑是不是有问题，还是代码有问题？
点击

atiger · 发表于 2010-5-5 10:39:02

不会呀，我lform，即ZYJ1.TCT1 这个窗体也有一个按钮，
你的意思是第二次lform没有执行到创建，即 lform := commonformlib.tiradetailsform.create(Acontext) 这句话吗？

另外，你的try 放到位置不好，应该放到create下面，见2楼的参考代码

matthaus · 发表于 2010-5-5 10:44:45

第二次lform := commonformlib.tiradetailsform.create(Acontext) 这句话执行时系统报错的，
有可能是try位置问题吧，我试试看。

matthaus · 发表于 2010-5-5 10:49:50

还是不行

atiger · 发表于 2010-5-5 10:52:56

你把你的东东传上来我看看，或者搞个简单重现的例子，我恢复环境看一下，

matthaus · 发表于 2010-5-5 14:25:25

帮我远程看看吧，实在没办法了

matthaus · 发表于 2010-5-6 11:14:39

暂时找不到原因，先结贴吧，

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