如何捕获MID子窗口的Active消息？(60分)

我想当程序激活任一个mid子窗口的时候显示一个Toolbar

&nbsp;if form1.ActiveMDIChild &lt;&gt; nil then<br>&nbsp; &nbsp; ToolBar1.Visible := True;

是这样的，我想用ApplicationEvents控件实现，不用在每个子窗口的Active事件中编码<br>（因为很多），但用Wm_mdiactived却捕捉不到消息。。。

在Idle过程中检测<br>procedure TForm1.MyIdleHandler(Sender: TObject; var Done: Boolean);<br>begin<br>&nbsp; &nbsp;if ActiveMDIChild &lt;&gt; nil then<br>&nbsp; &nbsp; &nbsp; ToolBar1.Visible := True;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; &nbsp;...<br>&nbsp; &nbsp;Application.OnIdle:= MyIdleHandler;<br>&nbsp; &nbsp;...<br>end;<br><br><br>

小芮:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

多人接受答案了。