🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:41ae25a6$1@newsgroups.borland.com...
>
> "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


Thank you!