` Printed Icetips Article

Icetips Article

Windows API: Removing the System menu
2003-03-28 -- Vernon Jay Godwin

Newsgroups: comp.lang.clarion


Hello,

Disabling the close button isn't too hard.  Will require a bit of work tho:

First...define these in the global map...

      GetSystemMenu(unsigned, signed),unsigned,PASCAL
      RemoveMenu(unsigned, signed, signed),signed,PASCAL
      DrawMenuBar(unsigned),signed,PASCAL

Now, on the window you want to disable the close button on...do the
following:

Add Following Data:

   hMenu         unsigned
   nRemove     signed
   nDraw         signed

- "After Opening Window" Embed

    hMenu   = GetSystemMenu(Window{Prop:Handle}, 0)
    nRemove = RemoveMenu(hMenu, 0F060h, 01000h)
    nDraw   = DrawMenuBar(Window{Prop:Handle})

Welp, that was quick :)

Hope that helps,

Vernon Jay Godwin
www.kefrendesigns.com




"Maarten"  wrote in message
news:3e84aec5@news.softvelocity.com...
> Fay,
>
> > Can anyone tell me how to disable or remove the minimize button
> After opening the window:
>   0{PROP:Icon} = ''        !this will leave the icon on the window
>
> > and close button(the X) ?
> I haven't found a way to remove this.
> You can short-stop it by entering a CYCLE
> in the EVENT:CloseWindow.
> Note: use a flag to the CYCLE instruction else
> you won't be able to close the window either;)
>
>
>
> --
>
> Best regards,
> Maarten
> CDD3.1, C5EEb - ABC & C5.5.08EE
> Certainly Clarion Developer
>
> "I know what I know but I do not know what you don't know"
>
>

Printed November 23, 2024, 6:57 am
This article has been viewed/printed 35216 times.
Google search has resulted in 63 hits on this article since January 25, 2004.