0

这确实是一个非常有趣的错误:) 我有一个从基本表单继承的子表单。基本形式提供各种虚拟;抽象;供儿童使用的服务。此表单使用所有这些 :) 服务之一是保存/取消系统,它在基本表单中以这种方式编码:

过程 TBaseRecordFrm.ConfirmSave(AVal: Boolean);
开始
  如果 AVal 那么
    执行保存
  别的
    执行取消;
  关;
结尾;

继承的表单做了一些非常简单的事情:在 Ok 和 Cancel 按钮中,使用适当的参数(True/False)调用 ConfirmSave。这两种方法的代码非常简单:

过程 TActionFrm.PerformCancel;
开始
  如果 dsEditModes 中的 DMMain.CDSActionItems.State 则
    DMMain.CDSActionItems.Cancel;
结尾;

程序 TActionFrm.PerformSave;
开始
  如果 dsEditModes 中的 DMMain.CDSActionItems.State 则
    DMMain.CDSActionItems.Post;
结尾;

按“取消”时,我收到“特权指令”异常。据我所知,我没有做任何壮观的事情。任何人都可以解释一下吗?:)

谢谢!

安德烈亚

4

0 回答 0