쓸만한 컴포넌트는 돈을 주고 사면 되는데 그러질 못했다.

그래서 방법을 찾던중 ......발견...기쁘도다..

 

먼저 Uses 절에 MMSystem 추가 한다.

다음 Timer를 하나 올려놓고 그안에 다음과 같이 구현한다.

 

Uses

MMSystem

 

procedure TForm1.joystickTimer(Sender: TObject);      //Joystick Info
var
  myjoy: TJoyInfo; // Tjoyinfo,TjoyCaps,Tjoyinfoex,TjoyCapsA,TjoyCapsW
  Joycon : TJoyCaps;
  posX,posY : Word;
begin
     joygetpos(joystickid1,@myjoy);
     posX := myjoy.wxpos;
     posY := myjoy.wypos;
   //  JoyX.Text:=Format('[%5d,%5d]',[posX,posY]);
     JoyX.Text:=Format('%5d',[posX]);  //X축
     JoyY.Text:=Format('%5d',[posY]); //Y축

     checkbox1.checked := (myjoy.wButtons and joy_button1)>0; //1번 버튼

end;

 

몇시간을 고민해서 찾았다...왜 찾으려는 자료들은 이렇게 찾기 힘들까?