试过了,系统自动会在第一个菜单的最后一个子菜单下添加一个"√ 1",我想不要这个1,但打开其它子窗口时要保留这个功能,怎么办?还有,系统有一个全部关闭、全部最小化菜单,当执行这个菜单时如何不使此CHILD窗口关闭、最小化
===>
在框架的resize事件加入
if not isvalid(w_back) then
openSheet(w_back.....)
end if
怎不试?
This example resizes the client area of a custom MDI frame window (that is, a frame window in which you've placed controls). P_logo is the control that's been placed on the window. The code belongs in the script for the frame's Resize event:
integer lw, lh
// Get the current workspace measurements
lw = This.WorkSpaceWidth()
lh = This.WorkSpaceHeight()
// Subtract the logo, MicroHelp from the height
lh = lh - (p_logo.Y + p_logo.Height)
lh = lh - MDI_1.MicroHelpHeight
// Add the distance between the top of the frame
// (just below the menu bar or toolbar, if any)
// and top of the workspace.
lh = lh + This.WorkspaceY( )
// Move the client area below the picture control
MDI_1.Move(This.WorkspaceX( ), &
p_logo.Y + p_logo.Height)
// Resize the client area using the calculated dims