Question

我的项目中有很多使用Form OnClose事件的表单。但是，我需要添加另一个＆＃34; generic＆＃34; OnClose在运行时的所有窗体上。有什么方法可以添加新的事件方法，而不是替换它？因此，表单将触发两个OnClose事件。

Answer 1

一次只能为一个事件分配一个处理程序。

您可以做的是为每个Form的OnClose事件分配“generic”处理程序，然后让每个Form覆盖其虚拟DoClose()事件以执行其本地工作。它可以在准备调用泛型处理程序时调用继承的DoClose()方法。例如：

type
  TMyForm = class(TForm)
  protected
    procedure DoClose(var Action: TCloseAction); override;
  end;

procedure TMyForm.DoClose(var Action: TCloseAction);
begin
  // do something here...
  inherited; // <-- call OnClose handler
end;

另一种方法是为实际的事件处理程序实现多播委托，然后委托可以根据需要调用其他处理程序。以下是关于该主题的一些博客：

Multicast events using generics

MultiCast Events - Part 1
MultiCast Events - Part 2
MultiCast Events - Conclusion

或者，您可以完全忽略OnClose事件并改为实现观察者模式（使用DoClose()来调用观察者）。以下是关于该主题的一些博客：

Observer Design Pattern in Delphi

Delphi and the Observer Pattern

The Observer Pattern

Delphi - 在现有的上分配Form OnClose

1 个答案: