Как использовать joystick?

Материал из DRKB

Как использовать joystick?[править | править код]

uses MMSYSTEM; 
var 
  MyJoy: TJoyInfo; 
  ErrorResult: MMRESULT; 
begin 
  ErrorResult := joyGetPos(joystickid1, @MyJoy); 
  if ErrorResult = JOYERR_NOERROR then 
  begin 
    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  
else 
   case ErrorResult of 
     MMSYSERR_NODRIVER: ShowMessage('No Joystick driver present'); 
     MMSYSERR_INVALPARAM: ShowMessage('Invalid Joystick Paramameters'); 
     JOYERR_UNPLUGGED: ShowMessage('Joystick is Unplugged'); 
   else  
     ShowMessage('Unknown error with Joystick'); 
 end; 

end;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 01614



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) модулей


Сборник Kuliba


Source: Взято из Советов по Delphi от Валентина Озерова
ID: 01615