【搞定】如何修改工作台？谢谢！**

smilemorning

不是吧？这样一个问题让我等了三天！

smilemorning

搞什么，不想回答我的问题么？

smilemorning

点击库房管理功能窗体的添加按钮时打开另一个业务功能的窗体！
代码已写好，编译通过。但是点击没有弹出窗口，没效果。麻烦看看代码，还有跟踪调试后点任何功能没有反应。
implementation

procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject);
      var
         lAddForm : PJZLGL.TMAINFORM;


begin
lAddForm :=  PJZLGL.TMAINFORM.Create(self.Context);
   case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetAppend:
      try
        lAddForm.ShowModal;
          finally
            lAddForm.Free;
end;
  end;
    end;
      end.

atiger

看代码看不出问题，请上传资源，我们恢复环境马上来跟踪。

smilemorning

资源上传

smilemorning

问题找到了么？

atiger

找到了，你数据导航的BeforeAction，没有挂上，那点击了肯定不起作用。你应该是直接写的吧，你还少写了一个参数哦（ var Accept: Boolean)）

提个小小建议，遇到问题，比如代码写了，编译正常，没有实现你要的效果，那么就需要设置断点跟踪，1是看运行时机是否符合你的要求，2是运行的路线是否符合你的需求。

smilemorning

不好意思，我以前一直是做JAVA项目的，没用过DELPHI。怎么挂上去，麻烦能不能解释清楚点？
implementation

procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject);
      var
         lAddForm : PJZLGL.TMAINFORM;


begin
lAddForm :=  PJZLGL.TMAINFORM.Create(self.Context);
   case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetAppend:
      try
        lAddForm.ShowModal;
          finally
            lAddForm.Free;
end;
  end;
    end;
      end.

应该怎么改？

atiger

首先，
...
    procedure DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
...
procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject);

修改改为
procedure DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
...
procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);

然后，在窗体上，选中“DataNavigator”在右边“属性”框中挂上。见附件图片

smilemorning

问题已经解决了，在群里得到了帮助！但是现在牵扯对象释放问题
lAddForm :=  PJZLGL.TMAINFORM.Create(self.Context);
   case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetAppend:
      try
        lAddForm.Show;
          finally
              lAddForm.Free;


如果写AddForm.Free;，窗口刚一弹出就被关掉了。
如果注销，又弹出对象没有释放
这个没有资源回收器么