在Form的OnActive事件里加代码就可以了！<br>Use OnActivate to perform special processing when<br> the form receives focus. A form becomes active when <br>focus is transferred to it (when the user clicks on<br> the form, for example).
在主form上增加一个popmenu组件，在其中加入一个子菜单并在它的事件中加入以下代码：<br> if form1.WindowState<>wsMaximized then showwindow(handle,SW_MAXIMIZE)<br> else showwindow(handle,SW_NORMAL)<br>此代码是实现当窗口最大化时转为正常，不最大化时最大化。<br>然后在该子菜单项的shortcut属性中加入Alt-S(可以手工输入),最后将form的popmenu属性<br>高为该组件的名称就可以了。
