阻止运行主窗体OnActivate事件

Question

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

谢谢

Answer 1

使用GpStuff(BSD许可证)临时禁用事件的简便简写:

uses
  GpStuff;

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