procedure
MaxMinWnd(
var
myMsg: TWMSysCommand);
message
WM_SYSCOMMAND;
//
声明:
case myMsg.CmdType of
SC_MINIMIZE: // 最小化
SC_MAXIMIZE: // 最大化
SC_RESTORE: // 恢复
end ;
case myMsg.CmdType of
SC_MINIMIZE: // 最小化
SC_MAXIMIZE: // 最大化
SC_RESTORE: // 恢复
end ;