阻止运行主窗体OnActivate事件

Question

我有一个简单的程序（在delphi 7中），它的主窗体是一个按钮。 当我单击主窗体上的按钮时，我将打开第二个窗体。 当我关闭第二个表单时，如何阻止运行主表单OnActivate事件？ （此代码除外：MainForm.OnActivate = nil）

感谢

Answer 1

使用GpStuff（BSD License）暂时停用活动的简便简写：

uses
  GpStuff;

with DisableHandler(@@MainForm.OnActivate) do
  Form2.ShowModal;

Answer 2

最简单的可能性

MainForm.OnActivate := NIL;
Form2.ShowModal;
MainForm.OnActivate := MainFormOnActivate;

使用其他东西会破坏Delphi中未来的兼容性......