[oniacziv]

Para mi queda asi y me es funcional para lo que necesito espero que también le sirva a alguien mas... Gracias por la orientación Escafandra

Se incluye mmsystem.h

Código Delphi [-]
//---------------------------------------------------------------------------

#include 
#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  if(joySetCapture(Handle, JOYSTICKID1, 0, true) != 0)
    ShowMessage("No se puede capturar el Joystick");
}
//---------------------------------------------------------------------------
/*void __fastcall TForm1::JOY1ButtonDown(TMessage Message){
  ShowMessage("Se ha pulsado un botón del Joystick");
} */
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  joyReleaseCapture(JOYSTICKID1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{

  switch(Msg.message){
    case MM_JOY1BUTTONDOWN:
      Caption = Msg.wParam;
    break;
    case MM_JOY1ZMOVE:
      Caption = Msg.lParam;
    break;
    case MM_JOY1MOVE:
      Caption = Msg.lParam;
    break;
    case MM_JOY1BUTTONUP:
    Caption = Msg.wParam;
    break;
  }
}
//---------------------------------------------------------------------------