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

xiaoxiao2021-03-01  15

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

转载请注明原文地址: https://www.6miu.com/read-3100140.html

最新回复(0)