如何去掉MDI主窗体的滚动条(100分)

  • 主题发起人 主题发起人 odbc1230
  • 开始时间 开始时间
O

odbc1230

Unregistered / Unconfirmed
GUEST, unregistred user!
当MDI子窗体移出主窗体的Client区域时,主窗体会出现
令人讨厌的滚动条,偶想禁止它出现,望大虾告知其实现
的方法
 
主窗体的Style改为不可改变大小
 
更改下住窗体的窗体属性,就好了。
 
旧问题要改form.pas
搜索滚动条!
 
沈前卫 (2000-3-21 22:56:00)
告诉你一个非常简单的方法:

将Forms.Pas拷贝到你的工程文件的目录,并用Project菜单中的Add to Project....
将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);

改为就搞定:

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


 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部