Remove Borlands Default System Menu On Dialogs (how)

[Mike Buckler]

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.

[Mike Buckler]

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

[Antonio Linares]

Mike,

Thanks