delphi - 如何在其事件处理程序中释放对象？

Question

我有 TMyClass，一个从 TObject 派生的类。它有一个 TTimer。每隔几分钟，我会从 Timer.OnTimer 检查一个网页。当网页发生变化时，我就完成了，我想释放 MyClass。我如何释放它？

我的问题类似于 this一个但我的“控件”不是 TControl。它是 TObject 的后代。因此，消息将不起作用。
显然，解决方案是从 TControl 或更高版本派生我的类。但是，假设我不想这样做。在这种情况下，解决方案是什么？

Answer 1

使用消息背后的基本思想是正确的:确保在当前调用它的任何代码完成之后，该对象在稍后被释放。

几年前，我写了一篇Delayed Action该单元为您提供了一种无需 TControl 即可实现相同效果的简单方法。您只需调用DelayExec并将一个匿名方法传递给它，该方法将释放该对象，并在内部设置一条消息，一旦消息队列被抽出，它就会发生。