Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Par2: Disabling red "X" 2006-10-22 -- Dennis Evans > Does anyone have any idea how to trap and disable the X button on the
> upper right hand side of the Window. I need to ensure that my user exit
> only through the exit button on the menu
>
equates
SC_CLOSE equate(0f060h)
MF_GRAYED equate(1)
prototypes
module('win32')
EnableMenuItem(signed hMenu, signed uIDEnableItem, signed
uEnable),bool,pascal,proc
DrawMenuBar(signed hWnd),bool,pascal
GetSystemMenu(signed hWnd, bool act),signed,pascal
end
code, after the window is opened where hMenu is a local long or signed
variable
hMenu = GetSystemMenu(self.myWindow{prop:handle}, false)
EnableMenuItem(hMenu, sc_close, MF_GRAYED)
DrawMenuBar(self.myWindow{prop:handle})
that will disable the close option and the X in the system menu, does not
handle alt-f4 and
the EscKey
Today is April 24, 2024, 5:33 pm This article has been viewed 35112 times.
|
|