CONTROLER SOURIS AVEC VOTRE MANETTE
Armkreuz_Spiderz
Messages postés
61
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
27 décembre 2008
-
19 août 2004 à 13:47
jex03 Messages postés 1 Date d'inscription dimanche 21 janvier 2007 Statut Membre Dernière intervention 4 février 2010 - 4 févr. 2010 à 14:38
jex03 Messages postés 1 Date d'inscription dimanche 21 janvier 2007 Statut Membre Dernière intervention 4 février 2010 - 4 févr. 2010 à 14:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25445-controler-souris-avec-votre-manette
https://codes-sources.commentcamarche.net/source/25445-controler-souris-avec-votre-manette
4 févr. 2010 à 14:38
28 mars 2007 à 00:08
la manette fonctionne normalement dans les jeux.
31 août 2005 à 14:45
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RadioButton1.Checked then JoyID:=JOYSTICKID1
else JoyID:=JOYSTICKID2;
InfoJoystick.dwSize:=SizeOf(InfoJoystick);
InfoJoystick.dwFlags:= JOY_RETURNALL;
Result := joyGetPosEx(JoyID, @InfoJoystick);
GetCursorPos(mousept);
mouseXlabel.Caption := FloatToStr(mousept.X);
mouseYlabel.Caption := FloatToStr(mousept.Y);
joyXlabel.Caption := IntToStr(InfoJoystick.wXpos);
joyYlabel.Caption := IntToStr(Infojoystick.wYpos);
SetCursorPos(Screen.Width * InfoJoystick.wXpos div 65535, Screen.Height * InfoJoystick.wYpos div 65535);
case InfoJoystick.wButtons of
JOY_BUTTON1:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
JOY_BUTTON2:
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end
end;
end;
Par contre, le clic sur le joystick est double :(
19 août 2004 à 13:51
19 août 2004 à 13:47