Discussion :

[Galet]

Bonjour à tous. Une petite question qui va surement paraitre basique :
J'ai mis en place le déplacement d'un tImage dans un tScrollBox, à l"aide de la souris. Tout fonctionne correctement, :
- onMouseDown pour gerer le debut du déplacement (sans tenir compte du bouton appuyé)
- onMouveUp pour la fin
- onMove avec un tTimer pour déplacer l'image.

Ma question intervient lorsque, pour l'utilisateur, je décide de changer le curseur du tImage (idem sur celui du tScrollBox) en crDrag dans le onMoveDown, avec un retour en crDefault dans le onMoveUp.
Les comportements :
- avec le bouton gauche, le curseur ne change pas même si les évènements sont correctement exécutés.
- avec les boutons central et droit, le curseur change uniquement conjointement avec le mouvement de la souris.
Un petit affichage permet de contrôler que le code est correctement exécuté...

Avez-vous une idée ?

[pprem]

Bonjour

Est-ce que par hasard tu as désactivé les propriétés liées au Drag&Drop natif ?

[Galet]

Merci pour ton intérêt.
Non, le DragMode est resté à dmManual. Si je le passe en automatique, j'ai bien une interdiction (curseur et déplacement) avec le bouton gauche et toujours le même comportement avec les autres.
...
J'ai créé un petit projet avec juste un tForm et les 2 procédures up et down de la souris. Sans changer aucun des paramètres standards, j'ai un résultat assez similaire :
- Bouton gauche, toujours pas de changement,
- Bouton central et droite, changement correct, c.à.d. dès que le bouton est activé, même si pas de déplacement.

Je vais tester sur un autre PC et regarder du côté du driver de la souris...
Cordialement

[wheel]

Ma question intervient lorsque, pour l'utilisateur, je décide de changer le curseur du tImage (idem sur celui du tScrollBox) en crDrag dans le onMoveDown, avec un retour en crDefault dans le onMoveUp.

Si votre application n'utilise que ces deux types de curseurs vous pouvez utiliser Screen.Cursor pour changer le curseur dans les éventements OnMouseDown et MouseUp par contre si il y a des contrôles avec d'autres comme les TEdit, TMemo .. qui affichent le crIBeam par défaut vaut mieux utiliser Windows.SetCursor uniquement dans l'evenement MouseMove pour changer le curseur vers crDrag ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   if [ssLeft, ssRight, ssMiddle] * Shift <> [] then // n'importe quel bouton 
       windows.SetCursor(Screen.Cursors[crDrag]);

[Galet]

Merci Wheel,
ca marche nickel, ce qui est bien le but... même si je ne comprends pas bien ces différences de comportement.