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;  
本文来自Delphi之窗，原文地址：http://www.52delphi.com