Джойстики и другие игровые манипуляторы
Поиск по сайту

Опрос
За кого вы проголосуете на выборах президента 18 марта?
Владимир Путин
Владимир Жириновский
Павел Грудинин
Максим Сурайкин
Григорий Явлинский
Ксения Собчак
Борис Титов
Сергей Бабурин
Испорчу бюллетень
Не пойду на выборы
Мне не будет 18 лет
Я не гражданин России

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

Источник: www.delphiworld.narod.ru

Copyright © 2003–2018 Maxim Shalumov. All rights reserved. Server: HP ProLiant DL120 G7
Rambler's Top100 Рейтинг@Mail.ru