Советы по Delphi
Контроль джойстика в Delphi
Действительно, Delphi это позволяет. Нижеприведенный код был взят из действующего приложения, вы можете переписать его под себя, главное - он показывает технологию работы с джойстиком.
| var myjoy: tjoyinfo;begin joygetpos(joystickid1,@myjoy);trackbar1.position := myjoy.wypos;trackbar2.position := myjoy.wxpos;radiobutton1.checked := (myjoy.wbuttons and joy_button1)>0;radiobutton2.checked := (myjoy.wbuttons and joy_button2)>0;end; |
Не забудьте включить MMSYSTEM в список используемых (USES) модулей. [000184]
