【搞定】如何继承 BizFormCloseQuery 事件？**

dragonsoft

我想用平台已经有的判断功能的数据集是否保存
但还有自己的其它操作要做，如何继承原来的closeQuery的结果？

procedure TXMXXLRForm.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Inherited FormCloseQuery(Sender,canClose);
//-------*********上面的编译不通过
  if canClose then
  begin
     if pageControl1.activePage=tsFile then
    begin
      if JBXXLR.TFJSCWD(dvFile.doc).isUnsave then
      begin
        dialogs.showMessage('附件未保存，请先保存/取消!');
        canClose:=false;
        exit;
      end;
    end;
  end;
end;

谢谢

jiahaiminghr

Inherited;

dragonsoft

Inherited;

＝＝这个没用啊。不信你可以测试下。 不会出现未保存的对话框了。跟没有inherited是一样的。

atiger

在这里直接处理就可以了，也就是说根据数据集的状态（应该是TDeltaDataSet），获知数据集是否已经保存了，然后弹出自己要的提示等等、
这部分请参考《用户手册》的 业务功能 的章节应该是最后一节的说明

dragonsoft

好，谢谢
可以结帖了