Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND ;<br><br>Procedure TMainForm.WMSysCommand(Var Message : TMessage) ;<br>begin<br> Case message of <br> SC_MINIMIZE : //最小化<br> SC_MAXMIZE : //最大化<br><br> end ;<br>end ;