FiveTech Support Forums

How do you clear or end the default system menu with dialog from rc file.

Or how do you completely replace the system menu from resources on the fly.

Any help would be appreciated.

procedure DisableX(ODLG)

local hMenu

hMenu := GetSystemMenu(oDlg:hWnd,.f.)
RemoveMenu( hMenu, 6, MF_BYPOSITION)
RemoveMenu( hMenu, 5, MF_BYPOSITION)
RemoveMenu( hMenu, 4, MF_BYPOSITION)
RemoveMenu( hMenu, 3, MF_BYPOSITION)
RemoveMenu( hMenu, 2, MF_BYPOSITION)
RemoveMenu( hMenu, 1, MF_BYPOSITION)
RemoveMenu( hMenu, 0, MF_BYPOSITION)
return

Mike,

Thanks