Delphi - 既存のフォームにOnCloseを割り当てよう

Question

フォームOnCloseイベントを使用するプロジェクトには、多くのフォームがあります。 しかし、私は実行時に他の "汎用" OnCloseをすべてのフォームに追加する必要があります。 新しいイベントメソッドを置き換えるのではなく、新しいイベントメソッドを追加する方法はありますか？したがって、フォームは両方のOnCloseイベントをトリガーします。

Answer 1

イベントには、一度に1つのハンドラだけを割り当てることができます。

「フォーム」のOnCloseイベントに「汎用」ハンドラを割り当ててから、ローカルの作業を行うために各フォームが仮想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; 

代替は、実際のイベントハンドラのマルチキャストデリゲートを実装するために、必要に応じて、その後、デリゲートは、他のハンドラを呼び出すことができます。 （コールするDoClose()を使用して

Multicast events using generics

MultiCast Events - Part 1
MultiCast Events - Part 2
また MultiCast Events - Conclusion

は、あなたが完全にOnCloseイベントを無視し、代わりにObserverパターンを実装することができます：ここではそのトピックには、いくつかのブログがありますオブザーバー）。ここでは、そのトピックには、いくつかのブログされています

Observer Design Pattern in Delphi

Delphi and the Observer Pattern

The Observer Pattern