скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Контроль джойстика в 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 © 2004-2018 "Delphi Sources". Delphi World FAQ


RAD Studio XE8

Комплексное решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая разные клиентские native-платформы, мобильные расширения, умные устройства, облачные службы, корпоративные и встроенные базы данных.



Группа ВКонтакте   Facebook   Ссылка на Twitter