Delphi中捕捉窗体的最小化、最大化、还原消息

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;