zoukankan      html  css  js  c++  java
  • 不修改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;

  • 相关阅读:
    Linux查看占用内存前10的命令
    使用RestTemplate调用SpringCloud注册中心内的服务
    Eureka集群配置
    MySQL常用命令集合(偏向运维管理)
    pytest: error: unrecognized arguments报错解决
    MongoDB的安装
    MongoDB多条件分组聚合查询
    在排序数组中查找元素的第一个和最后一个位置
    搜索二维矩阵
    搜索旋转排序数组
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631291.html
Copyright © 2011-2022 走看看