在Delphi中显示“打开”或“保存”对话框之前,需要一个事件

问题描述

我正在寻找一种机制,可以通过某种TSaveDialog.Execute事件来拦截所有TOpenDialog.ExecuteOnDialogBeforeExecute方法

我想知道TVirtualMethodInterceptor是使用某种中介层还是以某种方式预填充每个对话框的OnShow事件。

有人知道实现这一目标的方法吗?

解决方法

如果这是您的代码,那么我建议从TSaveDialog类继承并覆盖Execute方法。

我从未使用过TVirtualMethodInterceptor,但是这似乎是在运行时执行相同操作的一种方式-这将对非您的代码或您没有源代码访问权或由于某种原因无法编译的代码有所帮助。当您使用Thinfinity时,对于那些要独立维护但希望在托管时更改功能的Windows桌面上开发的应用程序,可能就是这种情况。这似乎是一种明智的方法。

无论采用哪种方式,您都可以在需要时为BeforeExecute和AfterExecute包含事件,并为替代的Execute提供一个OnExecute事件,该事件可以触发而不是调用继承的Execute。