🚀 go-pugleaf

"Kevin Johnson" <kevjson@hotmail.com> wrote:
> [...] I need to catch keyboard combinations (ATL+CTRL+K)
> within the form and I don't really know how.

The WM_KEYDOWN message is posted to the window with the
keyboard focus when a nonsystem key is pressed. A nonsystem
key is a key that is pressed when the ALT key is not pressed.

Try changing the ALT to Shift. Then you could try using the
Application::OnMessage event:

private:  // User declarations
    void __fastcall AppMessage( TMsg &Msg, bool &Handled );
//-------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner) : TForm(Owner)
{
    Application->OnMessage = AppMessage;
}
//-------------------------------------------------------------
void __fastcall TMain::AppMessage( TMsg &Msg, bool &Handled )
{
    if( Msg.message == WM_KEYDOWN || Msg.message == WM_KEYUP )
      {
      if( Msg.wParam == VK_TAB )
        {
        TForm* pForm = Screen->ActiveForm;
        TControl* pControl = Screen->ActiveControl;
        if( (GetKeyState( VK_SHIFT ) & 0x80 ) != 0x80 )
          {
          // shift not down
          }
        }
      }
}
//-------------------------------------------------------------

OR you could subclass the form's WndProc method (untested):

protected: // User declarations
    virtual void __fastcall WndProc(TMessage &Message);

//-------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Message)
{
    if( Message.Msg == WM_KEYDOWN || Message.Msg == WM_KEYUP )
      {
          // Message.wParam Specifies the virtual-key code of
          // the nonsystem key.
          // Message.lParam Specifies the repeat count, scan
          // code, extended-key flag, context code, previous
          // key-state flag, and transition-state flag.
      }
    TForm::WndProc(Message);
}

~ JD