Как проще всего сделать?
желательно без использования DX

uses MMSystem;
.....
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;

(C) DephiWorld

> [1] Ник   (17.02.08 09:09)

ОК! Спасибо!

http://xproger.mirgames.ru/?id=2&page=4 -> inp.pas

Удалено модератором

Удалено модератором