核心提示：procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then //最小化消息 begin//处理代码 endelse...
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;
