Joystick mit Hilfe von JVCL verwenden klappt nicht.

[Phiennes]

Hi,


Ich versuche ein Testprogramm zu schreiben bei dem die Parameter des Joysticks ausgegeben werden, da ich diesen bei einer Simulation verwenden möchte, die ich momentan Programmiere. Also hab' ich mich schlau gemacht und die JVCL-Lib runtergeladen und installiert.

Leider schaffe ich es nicht, das Programm dazuzubringen überhaupt in irgendeiner Art und Weise auf meinen Joystick zu reagieren.

Delphi-Quellcode:

var
  Form1: TForm1;
  alpha:TJvJoystick;

procedure TForm1.Button1Click(Sender: TObject);  // Startbutton
begin
alpha.Create(Form1);  // Anstatt Form1 soll da wohl irgendwas vom Typ AOwner hin, aber ich weiß nicht was das sein soll.
Timer1.Interval:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=IntToStr(alpha.JoyStick1.XPosition);  // Hier soll die Position ausgegeben werden.
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
alpha.Destroy;
form1.Close;
end;

Wie man unschwer sieht habe ich nach 3 Stunden langer Suche immer noch absolut keine Ahnung wie ich JVCL benutzen kann^^.


Bitte....., ich brauch' professionelle Hilfe

lG Phiennes


PS: Ich benutze delphi 7 professionell