🚀 go-pugleaf

"Regis St-Gelais" <regis.st-gelais@NOSPAMlaubrass.com> wrote in message
news:441ea195@newsgroups.borland.com...

> With OWL and OwlNext, you can do that by overriding EvNCHitTest

The equivilent in Win32 VCL would be to intercept the WM_NCHITTEST,
WM_NCLBUTTONUP, and WM_NCLBUTTONDOWN messages, ie:

    private:
        bool hitOK;
        int iLastHit;
        TPoint tpSave;

    void __fastcall TForm1::WndProc(TMessage &Message)
    {
        switch( Message.Msg )
        {
            case WM_NCHITTEST:
            {
                TForm::WndProc(Message);
                if( !hitOK )
                {
                    iLastHit = Message.Result;
                    tpSave = Point(LOWORD(Message.LParam),
HIWORD(Message.LParam));

                    if( (Message.Result == HTMAXBUTTON) || (Message.Result
== HTMINBUTTON) || (Message.Result == HTCLOSE) )
                    {
                        Message.Result = 32;
                        // 32 is a value that is not normally
                        // supported by Windows (0-21 are Windows values)
                        // Using it prevents the Windows tooltips from
displaying
                    }
                }
                break;
            }

            case WM_NCLBUTTONUP:
            {
                if( Message.WParam == 32 ) // If we hit one of the system
menu button
                {
                    //  We have been trapping hit test return values,
                    //  but now we need to activate one of the system menu
button
                    //  So, resend the last sequence of messages with hitOK
set to true
                    //  so the messages are processed normally
                    hitOK = true;
                    LPARAM lP = MAKELPARAM(tpSave.x, tpSave.y);
                    Perform(WM_NCHITTEST, 0, lP);
                    Perform(WM_NCMOUSEMOVE, iLastHit, lP);
                    Perform(WM_NCLBUTTONUP, iLastHit, lP);
                    hitOK = false;
                }
                else // Process normaly
                    TForm::WndProc(Message);

                break;
            }

            case WM_NCLBUTTONDOWN:
            {
                if( Message.WParam == 32) // If we hit one of the system
menu button
                {
                    //  We have been trapping hit test return values,
                    //  but now we need to activate one of the system menu
button
                    //  So, resend the last sequence of messages with hitOK
set to true
                    //  so the messages are processed normally
                    hitOK = true;
                    LPARAM lP = MAKELPARAM(tpSave.x, tpSave.y);
                    Perform(WM_NCHITTEST, 0, lP);
                    Perform(WM_NCMOUSEMOVE, iLastHit, lP);
                    PostMessage(Handle, WM_NCLBUTTONDOWN, iLastHit, lP);
                    hitOK = false;
                }
                else // Process normaly
                    TForm::WndProc(Message);

                break;
            }

            default:
            {
                TForm::WndProc(Message);
                break;
            }
        }
    }


Gambit