🚀 go-pugleaf

"Paul" <paulm@xacom.com.au> wrote in message
news:474529f6@newsgroups.borland.com...

> I have tried using the BEGIN_MESSAGE_MAP and overing
> the WndProc approach.

That won't work by itself.  All that allows you to do is hook the messages
at the TForm level, but the messages are also handled at the TApplication
level as well.  You need to use TApplication::HookMainWindow() as well.  For
example:

    class TForm1 : public TForm
    {
    protected:
        virtual void __fastcall WndProc(TMessage &Message);
    };

    __fastcall TForm1::TForm1(TComponent *Owner)
        : TForm(Owner)
    {
        Application->HookMainWindow(&AppHook);
    }

    __fastcall TForm1::~TForm1()
    {
        Application->UnhookMainWindow(&AppHook);
    }

    void __fastcall TForm1::WndProc(TMessage &Message)
    {
        if( Message.Msg == WM_QUERYENDSESSION )
        {
            // ignore it
            Message.Result = DefWindowProc(Handle, Message.Msg,
Message.WParam, Message.LParam);
        }
        else
            TForm::WndProc(Message);
    }

    bool __fastcall TForm1::AppHook(TMessage &Message)
    {
        if( Message.Msg == WM_ENDSESSION )
        {
            Message.Result = DefWindowProc(Application->Handle, Message.Msg,
Message.WParam, Message.LParam);
            return true;
        }
        return false;
    }


Gambit