这确实是一个非常有趣的错误:) 我有一个从基本表单继承的子表单。基本形式提供各种虚拟;抽象;供儿童使用的服务。此表单使用所有这些 :) 服务之一是保存/取消系统,它在基本表单中以这种方式编码:
过程 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; 结尾;
按“取消”时,我收到“特权指令”异常。据我所知,我没有做任何壮观的事情。任何人都可以解释一下吗?:)
谢谢!
安德烈亚