🚀 go-pugleaf

"Mike King" <emailMK@excite.com> wrote in message
news:41ae1698@newsgroups.borland.com...

> Can I have the message pump run in a thread other then
> the main thread?

The main thread is still a thread like any other, so technically yes.  I
would not advice using TApplication::ProcessMessages() for that, though.
AllocateHWnd() creates a basic window with no VCL handlings attached to it,
so a generic message pump via calling Get/PeekMessage(), TranslateMessage(),
and DispatchMessage() in a loop should suffice, ie:

    HWND FWnd;

    void __fastcall TMyThread::Execute()
    {
        MSG msg;
        FWnd = AllocateHWnd(WndProc);
        try
        {
            while( ::GetMessage(&msg, FWnd, 0, 0) > 0 )
            {
                ::TranslateMessage(&msg);
                ::DispatchMessage(&msg);
            }
        }
        __finally {
            DeallocateHWnd(FWnd);
        }
    }

    void __fastcal TMyThread::WndProc(TMessage &Message)
    {
        if( Message.Msg == WM_DEVICECHANGE )
            // process the message as needed...

        Message.Result = DefWindowProc(FWnd, Message.Msg, Message.WParam,
Message.LParam);
    }


Gambit