截取最小化消息

如果在钩子中分离出最小化消息 问题点数：20、回复次数：2Top

1 楼jinjazz（近身剪）回复于 2005-02-21 21:52:37 得分 20

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   Buttons,   CheckLst;  
   
  type  
      TForm1   =   class(TForm)  
      private  
          {   Private   declarations   }  
          procedure   WMSysCommand(var   Message:Tmessage);  
          message   WM_SYSCOMMAND;  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
  procedure   TForm1.WMSysCommand(var   Message:Tmessage);  
    begin  
      if   Message.WParam=SC_MINIMIZE   then   Exit   //   拦截一下~~  
      else   inherited;  
    end;  
  end.Top

2 楼smiler007（笑一笑）回复于 2005-02-21 23:05:01 得分 0

楼上高人!Top

相关问题

• 消息
• wmsyscommand
• 最小化消息
• tform
• tmessage
• unit
• message
• declarations
• procedure
• var

• 帖主：sunjunfeng4
• jinjazz

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载