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

最新推荐文章于 2021-03-28 18:07:36 发布

martian6125

最新推荐文章于 2021-03-28 18:07:36 发布

阅读量260

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/martian6125/article/details/82018381

Delphi 专栏收录该内容

266 篇文章

订阅专栏

本文介绍如何在Delphi中通过修改TCustomForm.CreateWnd过程来禁用MDI窗体中的水平和垂直滚动条。具体做法是移除WS_HSCROLL和WS_VSCROLL样式。

将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);