COMPOSANT TDBPMOUSER : JOUEZ AVEC LA SOURIS !!
Emandhal
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
-
22 sept. 2005 à 23:16
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 - 22 sept. 2005 à 23:16
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 - 22 sept. 2005 à 23:16
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/25071-composant-tdbpmouser-jouez-avec-la-souris
https://codes-sources.commentcamarche.net/source/25071-composant-tdbpmouser-jouez-avec-la-souris
22 sept. 2005 à 23:16
procedure TdbpMouser.Simuler_MoletteHaut;
begin
mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA, 0);
end;
procedure TdbpMouser.Simuler_MoletteBas;
begin
mouse_event(MOUSEEVENTF_WHEEL, 0, 0, -WHEEL_DELTA, 0);
end;
tu peux rajouter aussi :
const
XBUTTON1 = $0001;
XBUTTON2 = $0002;
procedure TdbpMouser.Simuler_ClicXGauche;
begin
mouse_event(MOUSEEVENTF_XDOWN, 0, 0, XBUTTON1, 0);
mouse_event(MOUSEEVENTF_XUP, 0, 0, XBUTTON1, 0);
end;
procedure TdbpMouser.Simuler_ClicXDroit;
begin
mouse_event(MOUSEEVENTF_XDOWN, 0, 0, XBUTTON2, 0);
mouse_event(MOUSEEVENTF_XUP, 0, 0, XBUTTON2, 0);
end;