Delphi中判断窗体最大化和最小化事件

unit   Unit1; 
  
  interface 
  
  uses 
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms, 
      Dialogs,   StdCtrls; 
  
  type 
      TForm1   =   class(TForm) 
          Button1:   TButton; 
          Button2:   TButton; 
          procedure   Button2Click(Sender:   TObject); 
      private 
      private 
      procedure   WMsyscommand(var   msg   :   Twmsyscommand);message   wm_syscommand; 
          {   Private   declarations   } 
      public 
          {   Public   declarations   } 
      end; 
  
  var 
      Form1:   TForm1; 
  
  implementation 
  
  {$R   *.dfm} 
  
  procedure   Tform1.WMsyscommand(var   msg   :   Twmsyscommand); 
  begin 
      if   msg.CmdType   =   SC_MAXIMIZE   then 
            showmessage('现在最大化') 
      else   if   msg.CmdType   =   SC_MINIMIZE   then 
            showmessage('现在最小化'); 
      inherited; 
  end; 
  
  end.
本文来自Delphi之窗，原文地址：http://www.52delphi.com

转载于:https://www.cnblogs.com/martian6125/archive/2009/11/02/9631249.html