如何去掉MDI父窗体的滚动条?网上搜了一早上!!!!!

Question

如何去掉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 TMainForm.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; 
但是我想要的是另外一种办法,是在MDI子窗体的Form的消息处理中来实现,现在找不到眉目?
在这里请教大家了,谢谢

Answer 1

ShowScrollBar(Handle, SB_HORZ, False);去掉水平滚动条
ShowScrollBar(Handle, SB_VERT, False);去掉垂直滚动条

Answer 2

dpr文件中，只uses   MDIForm,其余MDIChild窗体动态创建

Answer 3

Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall;
begin
 if not msg=$003F then
 Result := CallWindowProc(pUserdata, wnd, msg, wparam, lparam );
end;过滤掉消息$003F即可。

Answer 4

请问ClientWindowProc函数是放在哪里执行呢?

Answer 5

只要不放在类模块的Private、Public、Protected、Published里即可。也就是作为一个全局函数即可。可以放在MDIChild的单元里，也可放在MainForm的单元里，也可以放在其他任何unit里。

Answer 6

假定MDI子窗口单元为Child.Pas，主窗口单元为Main.Pas{Child.Pas}
var
  frmChild: TfrmChild;
  DefaultClientWndProc :Pointer;
 
function ClientWndProc(wndHandle :HWND;Msg :LongInt;
 wParam,lParam :LongInt) :LongInt;stdcall;implementationuses Main;{$R *.dfm}function ClientWndProc(wndHandle :HWND;Msg :LongInt;
  wParam,lParam :LongInt) :LongInt;
begin
 if Msg<>$003F then
 Result := CallWindowProc(DefaultClientWndProc,frmMain.ClientHandle,Msg,WParam,LParam);
end;{Main.Pas}implementationuses Child;{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
 DefaultClientWndProc :=Pointer(SetWindowLong(ClientHandle,GWL_WNDPROC,
                                LongInt(@ClientWndProc)));
end;放什么地方很清楚了吧？你想在MDI子窗口里处理，这样就可以。$003F消息做什么用？去VCL的Forms看看去，如果ShowScrollBar(Handle,   SB_HORZ,   False);去掉水平滚动条 
ShowScrollBar(Handle,   SB_VERT,   False);去掉垂直滚动条是毫无效果的，因为$003F消息会再使窗口带上滚动条。

Answer 7

主窗口就一句，但不知你的主窗体干什么用的？ 
DefaultClientWndProc   :=Pointer(SetWindowLong(ClientHandle,GWL_WNDPROC, 
                                 LongInt(@ClientWndProc))); 实际上，你完全可以放在在子窗体中。procedure TfrmChild.FormCreate(Sender:   TObject); 
begin 
 if DefaultClientWndProc = nil then
 DefaultClientWndProc :=Pointer(SetWindowLong(frmMain.ClientHandle,GWL_WNDPROC, 
                                LongInt(@ClientWndProc))); 
end; 楼主不知是基础太差还是太不愿意动脑子了？

Answer 8

基础是差啊,半路出家的,对VCL低层不了解

Answer 9

这些应该不行吧。当初有人是把 form.pas 这个单元改了后，放到项目文件路径下直接编译的。