1、把下列声明加到GLOBAL EXTERNAL FUNCTIONS:
Function ulong SetWindowPos(ulong hwnd,ulong hWndInsertAfter,ulong x,ulong y,ulong cx,ulong cy,ulong wFlags) LIBRARY "user32.dll"
Function ULong SetWindowLongA(Long hwnd, Long nIndex, Long dwNewLong) Library 'user32.dll'
Function ULong GetWindowLongA(Long hwnd, Long nIndex) Library 'user32.dll'
2、把下列代码加到W_FRAME窗口(即MDI窗口)的OPEN事件:
long dwStyle
dwStyle = GetWindowLongA(handle(this), -16)
dwStyle = dwStyle - 12582912
dwStyle = SetWindowLongA(handle(this), -16, dwStyle)
SetWindowPos(handle(this), -2, 0, 0, 0, 0, 39)
3、把一级菜单各ITEM的VISIBLE都设为FALSE,即可。
mdi类型的窗口去掉标题栏和菜单
最新推荐文章于 2022-03-21 15:47:28 发布