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

Опрос
С какого раза вы сдали экзамен в ГИБДД на вождение?
С 1-го
Со 2-го
С 3-го
С 4-го и более
Не смог сдать экзамены
Получил права без экзаменов
Еще не сдавал, но планирую
Не собираюсь водить автомобиль

Контроль джойстика в 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–2017 Maxim Shalumov. All rights reserved. Server: HP ProLiant DL120 G7
Rambler's Top100 Рейтинг@Mail.ru