不想mdi主窗口的滚动条出现

将Forms.Pas拷贝并加入当前工程；  
   
  改写procedure   TCustomForm.CreateWnd;  
  将  
      FClientHandle   :=   Windows.CreateWindowEx(WS_EX_CLIENTEDGE,   'MDICLIENT',  
          nil,   WS_CHILD   or   WS_VISIBLE   or   WS_GROUP   or   WS_TABSTOP   or  
          WS_CLIPCHILDREN   or   WS_HSCROLL   or   WS_VSCROLL   or   WS_CLIPSIBLINGS   or  
          MDIS_ALLCHILDSTYLES,   0,   0,   ClientWidth,   ClientHeight,   Handle,   0,  
          HInstance,   @ClientCreateStruct);  
   
  中的ws_hscroll   or   ws_vscroll   or给去掉  
  即改为  
   
      FClientHandle   :=   Windows.CreateWindowEx(WS_EX_CLIENTEDGE,   'MDICLIENT',  
          nil,   WS_CHILD   or   WS_VISIBLE   or   WS_GROUP   or   WS_TABSTOP   or  
          WS_CLIPCHILDREN     or   WS_CLIPSIBLINGS   or  
          MDIS_ALLCHILDSTYLES,   0,   0,   ClientWidth,   ClientHeight,   Handle,   0,  
          HInstance,   @ClientCreateStruct);  

转载于:https://www.cnblogs.com/martian6125/archive/2006/12/28/9631546.html