🚀 go-pugleaf

After playing with it a bit, it would appear that when allowing the system
menu in behavior in its native manner, it sends WM_SYSCOMMAND commands to
the form, but when using TrackPopupMenu() it sends WM_COMMAND messages
instead.  That difference is confusing the VCL as to what to do with them,
since those two messages have different implementations.

To make it work correctly, you have to take the return value of
TrackPopupMenu() (which you're already specifying the TPM_RETURNCMD flag
for, you're just not using the actual return value) and then manually send
WM_SYSCOMMAND to the form, ie:

    HMENU hMenu = GetSystemMenu(Form1->Handle, FALSE);
    int nCmd = TrackPopupMenu(hMenu, TPM_LEFTALIGN | TPM_RETURNCMD,
Form1->Left+10, Form1->Top+10, 0, Form1->Handle, NULL);
    if( nCmd )
    {
        TMessage Message;
        Message.Msg = WM_SYSCOMMAND;
        Message.WParam = nCmd;
        Message.LParam = 0;
        Form1->WndProc(Message);
    }


Gambit

"RaynorPao" <RaynorPao.nospam@nospam.pchome.com.tw> wrote in message
news:3e7fdee7@newsgroups.borland.com...

> The System Menu can be display on my Form.
> But when I click "Exit"....It will not close my
> Form(Exit Application).
<snip>