Page 1 of 1

Remove Borlands Default System Menu On Dialogs (how)

PostPosted: Mon Mar 06, 2006 9:14 pm
by 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.

Found It On the old forum.

PostPosted: Tue Mar 07, 2006 2:26 am
by 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

PostPosted: Tue Mar 07, 2006 8:37 am
by Antonio Linares
Mike,

Thanks :)