procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then //最小化消息 begin //处理代码 end else if (Msg.CmdType = SC_MAXIMIZE) then //最大化消息 begin //处理代码 end else if (Msg.CmdType = SC_RESTORE) then //还原消息 begin //处理代码 end; DefaultHandler(Msg);//默认处理 end;