Контроль джойстика в 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) модулей.

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com