首页 > 编程学习 > 不修改forms.pas单元就可以去掉MDI窗口的滚动条

关于如何去掉MDI主窗体的滚动条的方法,很多都是去修改forms.pas单元,可以达到这样的效果,但是发现一个问题,我的项目是用BPL模式开发的,这样的话去修改forms.pas单元就没有作用了,于是上网找了很久,发现有一部份代码可以在不修改pas的源码情况下去掉MDI主窗体的滚动条,现发到盒子上,以便以后方便查找.

在MDI主窗体中如下代码:

Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall; 
Var 
 pUserdata: Pointer; 
Begin 
 pUserdata:= Pointer( GetWindowLong( wnd, GWL_USERDATA )); 
 Case msg of 
   WM_NCCALCSIZE: Begin 
       If (GetWindowLong( wnd, GWL_STYLE ) and (WS_HSCROLL or WS_VSCROLL)) <> 0 Then
         SetWindowLong( wnd, GWL_STYLE, GetWindowLong(wnd, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL)); 
     End; 
 End; 
 Result := CallWindowProc(pUserdata, wnd, msg, wparam, lparam ); 
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 //  ShowScrollBar(mainform.clienthandle, SB_BOTH, false ); 
 If ClientHandle <> 0 Then Begin
   If GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 Then Exit; 

   // 加上回调句柄 
   SetWindowLong( ClientHandle, GWL_USERDATA, SetWindowLong( ClientHandle, GWL_WNDPROC, integer( @ClientWindowProc))); 
 End;
end;

Copyright © 2010-2022 ngui.cc 版权所有 |关于我们| 联系方式| 豫B2-20100000