怎样能实现双击最大化窗口的标题栏的时候窗口的大小不变？？？

怎样能实现双击最大化窗口的标题栏的时候窗口的大小不变？？？（一般情况下窗口会变小） 问题点数：50、回复次数：8Top

1 楼hnhb（不死鸟）回复于 2004-05-01 08:54:18 得分 6

设好form的Constraints属性中的MaxHeight、MaxWidth、MinHeight、MinWidth的值Top

2 楼tresss（破天惊）回复于 2004-05-01 19:45:43 得分 7

可以自己定义标题栏!  
   
  也可以截获最大化的消息!Top

3 楼kaershaw（一苇渡江&&欲出江湖）回复于 2004-05-01 20:14:23 得分 6

截获最大化的消息!  
  Top

4 楼bigery（bigery）回复于 2004-05-01 20:58:30 得分 7

form的Constraints属性中的MaxHeight、MaxWidth、MinHeight、MinWidth的值  
  让：max=min=当前的值Top

5 楼truelang（truelang）回复于 2004-05-01 21:01:27 得分 7

设置Height,Width  
  并设AutoSize:=true;Top

6 楼miky（miky）回复于 2004-05-01 21:05:07 得分 11

楼上各位的方法都不对，象你们那样弄的话，点还原按钮也没用了。  
  截获标题栏双击信息，就可以达到你的要求。  
   
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs;  
   
  type  
      TForm1   =   class(TForm)  
      private  
          procedure   WMNCLButtonDblClk(var   Msg:   TWMNCLButtonDblClk);Message   WM_NCLBUTTONDBLCLK;  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  {   TForm1   }  
   
  procedure   TForm1.WMNCLButtonDblClk(var   Msg:   TWMNCLButtonDblClk);  
  begin  
      //如果窗体不是最大化的话，一切正常，是最大化就什么也不做。  
      if   self.WindowState   <>   wsMaximized then    
          Inherited;  
  end;  
   
  end.Top

7 楼laiguorong（Win Lai）回复于 2004-05-01 23:09:39 得分 0

???Top

8 楼metal11516580（金属狂人）回复于 2004-05-02 00:26:17 得分 6

拦截消息哈Top

相关问题

• 标题栏
• 最大化
• 双击
• tform
• form
• var

• 帖主：supernewstar
• hnhb
• tresss
• kaershaw
• bigery
• truelang
• miky
• metal11516580

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