通过截获WM_SYSCOMMAND消息可以判断目前的窗体是不是最小化状态<br>例如:<br><br>type<br>TForm1 = class(TForm)<br>public<br>procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;<br>end;<br><br>procedure TForm1.WMSysCommand;<br>begin<br>if Msg.CmdType = SC_MINIMIZE then<br>begin<br>// 如果窗体最小化,你的处理代码...<br>end;<br>DefaultHandler(Msg);<br>end; <br><br>使窗体最小化可以使用如下例子:<br>postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0); <br><br>