Delphi - 現在のフォーカスを持つウィンドウ/フォームのキャプチャ

Question

私は多数のMDI子ども（MDI以外のフォームも含む）を持つMDIアプリケーションを持っており、どのフォームが現在アクティブで、いつもフォーカスを持っているかをトラッキングしたい。ユーザーがアプリケーション内のあるフォームから別のフォームに切り替えると、ウィンドウのアクティブ化メッセージをトラップして、バックグラウンドでグローバル変数をアクティブなフォームのプロパティに設定します（このプロパティは基本クラスから継承されます）。私はもともと（私のアプリケーションのすべてのフォームを使用する）基本クラスのOnActivateイベントハンドラにコードを入れましたが、このイベントが必ずしも発生しないことに気づきました。何か案は？

私はDelphi 2006 BDSを使用しています。

Answer 1

グローバルScreen変数は、すべてのフォームを追跡します。 Screen.ActiveCustomFormは、フォーカスを持つフォームを指し、Screen.OnActiveFormChangeは、フォーカスが別のフォームに変わるたびに発生するイベントです。イベントハンドラでプロパティを更新することができます。

type 
    TMainForm = class(TForm) 
    ... 
    private 
    procedure ActiveFormChanged(Sender: TObject); 
    end; 

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    Screen.OnActiveFormChange := ActiveFormChanged; 
end; 

procedure TMainForm.ActiveFormChanged(Sender: TObject); 
begin 
    { Do what you want to do } 
end; 

Answer 2

ActiveMDIChildプロパティは、探しているプロパティですか？