🚀 go-pugleaf

Thanks remy, it is working great...

best regards


"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3f1dce10$1@newsgroups.borland.com...
>
> "micheal davis" <micheal_davis@hotmail.com> wrote in message
> news:3f1dc0e4@newsgroups.borland.com...
>
> > HWND dwnd;
>
> You do not need to use a separate HWND, especially one that you are not
> actually assigning to anything.  Just use the form's own HWND itself,
which
> is accessible via the form's Handle property.
>
> >   if(RegisterHotKey(dwnd,1, MOD_CONTROL && MOD_ALT, VK_F6)==true)
>
> Use Handle instead of dwnd.  Also, you need to use the '|' operator rather
> than '&&':
>
>     if( RegisterHotKey(Handle, 1, MOD_CONTROL | MOD_ALT, VK_F6) )
>
> >   UnregisterHotKey(dwnd,1);
>
> Here too, use Handle instead:
>
>     UnregisterHotKey(Handle, 1);
>
> > //here comes my problem I don't know how and where shall I put the
> WM_HOTKEY
>
> Declare a MESSAGE_MAP for it, or override the inherited WndProc() method:
>
> 1)
>     class TForm1 : public TForm
>     {
>     private:
>         void __fastcall WMHotKey(TMessage &Message);
>     public:
>         BEGIN_MESSAGE_MAP
>             VCL_MESSAGE_HANDLER(WM_HOTKEY, TMessage, WMHotKey)
>         END_MESSAGE_MAP(TForm)
>     };
>
>     void __fastcall TForm1::WMHotKey(TMessage &Message)
>     {
>         if( Message.WParam == 1 )
>             // do something
>         else
>             TForm::Dispatch(&Message);
>     }
>
>
> 2)
>     class TForm1 : public TForm
>     {
>     protected:
>         void __fastcall WndProc(TMessage &Message);
>     };
>
>     void __fastcall TForm1::WndProc(TMessage &Message)
>     {
>         if( (Message.Msg == WM_HOTKEY) && (Message.WParam == 1) )
>             // do something
>         else
>             TForm::WndProc(Message);
>     }
>
>
> Gambit
>
>