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)