Réponse au déplacement de la souris
Remonter à Comment répondre à la souris
Un événement OnMouseMove se produit périodiquement lorsque l'utilisateur déplace la souris. L'événement est adressé à l'objet qui était sous le pointeur de la souris lorsque l'utilisateur a enfoncé le bouton. Cela vous permet de fournir un retour d'informations à l'utilisateur en dessinant des lignes temporaires au fur et à mesure que la souris est déplacée.
Pour répondre aux déplacements de la souris, définissez un gestionnaire pour l'événement OnMouseMove. Cet exemple utilise les événements déplacement de la souris pour dessiner sur la fiche des formes intermédiaires pendant que l'utilisateur maintient enfoncé le bouton de la souris, offrant ainsi à l'utilisateur un aperçu de ce qu'il obtiendra. Le gestionnaire de l'événement OnMouseMove dessine une ligne dans la fiche à l'emplacement de l'événement OnMouseMove :
procedure TForm1.FormMouseMove(Sender: TObject;Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.LineTo(X, Y);{ draw line to current position }
end;
void __fastcall TForm1::FormMouseMove(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) {
Canvas->LineTo(X, Y); // draw line to current position
}
Avec ce code, le dessin suit le déplacement de la souris sur la fiche, avant même que le bouton de la souris ne soit enfoncé.
Les événements déplacement de la souris se produisent, même lorsque le bouton de la souris n'a pas été enfoncé.
Pour déterminer si un bouton de la souris est enfoncé, il est nécessaire d'ajouter un objet champ à l'objet fiche.