如何解决在Delphi中显示“打开”或“保存”对话框之前,需要一个事件
我正在寻找一种机制,可以通过某种TSaveDialog.Execute
事件来拦截所有TOpenDialog.Execute
或OnDialogBeforeExecute
方法。
我想知道TVirtualMethodInterceptor
是使用某种中介层还是以某种方式预填充每个对话框的OnShow
事件。
有人知道实现这一目标的方法吗?
解决方法
如果这是您的代码,那么我建议从TSaveDialog类继承并覆盖Execute方法。
我从未使用过TVirtualMethodInterceptor,但是这似乎是在运行时执行相同操作的一种方式-这将对非您的代码或您没有源代码访问权或由于某种原因无法编译的代码有所帮助。当您使用Thinfinity时,对于那些要独立维护但希望在托管时更改功能的Windows桌面上开发的应用程序,可能就是这种情况。这似乎是一种明智的方法。
无论采用哪种方式,您都可以在需要时为BeforeExecute和AfterExecute包含事件,并为替代的Execute提供一个OnExecute事件,该事件可以触发而不是调用继承的Execute。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。