» Главная
eXcode.ru » Статьи » Delphi/Pascal » Железо
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 22





Пластиковые трубы

Полипропиленовые трубы. Коттеджи, дома, дачи, постройки.

argoplast.ru


Керамическая плитка

Салон отделочных материалов. Карта розничных дилеров.

salonitalika.ru


Торты на заказ

Сеть магазинов. Меню с ценами.

tort-master.ru




Контроль джойстика в Delphi




Действительно, Delphi это позволяет. Нижеприведенный код был взят из действующего приложения, вы можете переписать его под себя, главное - он показывает технологию работы с джойстиком.

<table class=code cellpadding=5 align=center width=98% border=1 bordercolor=#3B3B3B><tr><td>
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;
</td></tr></table>

Не забудьте включить MMSYSTEM в список используемых (USES) модулей.
К началу статьи





Добавил: LedWormДата публикации: 2005-06-02 21:53:35
Рейтинг статьи:3.00 [Голосов 5]Кол-во просмотров: 7538

Комментарии читателей

Всего комментариев: 0
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Какую музыку вы предпочитаете?
Techno
11% (29)
Rap
10% (26)
Rock
48% (126)
Trance
10% (27)
Pop
7% (17)
house
5% (13)
Классическую
7% (19)
Я не слушаю музыку
2% (4)

Проголосовало: 261
Звонок в компьютерную контору:
- С моим компьютером проблемы, он не включается...
- Как не включается?
- Да пишет все время: "Вставьте дискету, вставьте дискету..."
- А вы вставляли?
- Hет... Как-то не догадался.
Рейтинг: 7/10 (3)
Посмотреть все анекдоты

 
eXcode.ru » Статьи » Delphi/Pascal » Железо