🚀 go-pugleaf

"Vladimir Stefanovic" <antivari@po.sbb.co.yu> wrote:
>
>Also, how you method reacts on Win+D
>combination that Minimizes all windows?

Arrrg. It misses it!! But it doesn't create any problems
either. I'll have to investigate that now. Thanks alot [not]!!

>> Can you please drop the sample code for that. I
>> suppose I'll neede it sooner or later.

It's actually quite simple - just like subclassing the form's
WndProc method except that you're targetting the Application
instance instead of the main form and it's a hook so it
returns a value (a bool in this case):

//--- in the header -------------------------------------------
    protected:
        bool __fastcall MyHookWndProc(TMessage &Message);

//--- in the unit ---------------------------------------------
__fastcall TMyClass::TMyClass( TComponent *Owner ) : TComponent(Owner)
{
    Application->HookMainWindow( MyHookWndProc );
}
//-------------------------------------------------------------
__fastcall TMyClass::~TMyClass()
{
    Application->UnhookMainWindow( MyHookWndProc );
}
//-------------------------------------------------------------
bool __fastcall TMyClass::MyHookWndProc( TMessage &Message )
{
    if( Message.Msg == WM_something )
      {
          // return true if you handle the message
      }
    // return false to continue propagation of the message
    return false;
}
//-------------------------------------------------------------

~ JD