🚀 go-pugleaf

"Jonathan Dumaresq" <jdumaresq@cimeq.qc.ca_nospam> wrote in message
news:45ccf77e$1@newsgroups.borland.com...

>  void WindowProc(TMessage &msg);

TForm inherits a WindowProc property from TControl.  You cannot
declare a method with the same name.  You should override the virtual
WndProc() method instead.

>  RAWINPUTDEVICE Rid;

You should always zero out API structures before using them:

    RAWINPUTDEVICE Rid = {0};

Or

    RAWINPUTDEVICE Rid;
    memset(&Rid, 0, sizeof(Rid));

Or:

    RAWINPUTDEVICE Rid;
    ::ZeroMemory(&Rid, sizeof(Rid));

>  Rid.usUsagePage = 0x01;
>  Rid.usUsage = 0x04;
>  Rid.dwFlags = 0;                 // adds joystick
>  Rid.hwndTarget = NULL;

Why are you not setting the TForm's Handle as the target?  That is
where you are trying to catch the WM_INPUT messages, afterall.

>  if (RegisterRawInputDevices(&Rid, 1, sizeof(Rid)) == FALSE)
>  {
>    //registration failed. Call GetLastError for the cause of the
error.
>   ShowMessage("error");
>  }

You did not say which error is actually being reported.


Gambit