So jetzt hab ichs getestet, aber es tut sich nix.
Habs folgendermaßen implementiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
myjoy: tjoyinfo;
begin
Checkbox1.checked := false;
Checkbox2.checked := false;
joygetpos(joystickid1,@myjoy); //Was ist joystickid1?
Checkbox1.checked := (myjoy.wbuttons and joy_button1)>0;
Checkbox2.checked := (myjoy.wbuttons and joy_button2)>0;
end;
Also so funktionierts jedenfalls nicht, ich muss jedoch sagen, dass ich den Code nicht richtig verstehe, um genau zu sein "joystickid1", "wbuttons" und "joy_button1". Ich hab keine Hilfe dazu gefunden. Wäre nett wenn mir jemand das erklären könnte.
lg fishly