Delphi 去掉MDI窗口的滚动条

最新推荐文章于 2025-10-24 16:11:34 发布

原创最新推荐文章于 2025-10-24 16:11:34 发布 · 1.5k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

QQ:109576764

收录于

delphi程序设计专栏收录该内容

48 篇文章

订阅专栏

本文介绍了一种在MDI主窗体中处理WM_NCCALCSIZE消息的方法，通过修改窗口样式移除滚动条，并使用自定义的客户端窗口过程进行消息处理。

在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;