Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
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 November 21, 2024, 7:24 am This article has been viewed 35220 times.
|
|