MDI窗口屏蔽了控制菜单框里的 还原 ,但是 双击 窗体控制栏 又还原了!
LuYao 2003-09-29 01:45:48 如题:
屏蔽了控制菜单框里的 还原:
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(MyForm.hwnd, False)
RemoveMenu hSysMenu, 0, SC_RESTORE Or MF_REMOVE Or MF_BYPOSITION
Dim lngFormStyle As Long
lngFormStyle = GetWindowLong(MyForm.hwnd, GWL_STYLE)
lngFormStyle = lngFormStyle And Not WS_MAXIMIZEBOX
SetWindowLong MyForm.hwnd, GWL_STYLE, lngFormStyle