Déplacement d'un TShape

Bonjour,
J'ai créer un TShape à l'intérieur d'une forme et j'aimerais le faire glisser sur la forme. J'ai utiliser la fonction OnMouseMove sur mon objet TShape. Mais mon TShape ne bouge pas aussi vite que la souris. Il me faut un déplacement de 200pixels pour faire bouger mon TShape de 100 pixels par exemple.
Si quelqu'un a une idée merci bcp

Ah tiens un sujet que je connais :wink:

Code:

---

1 2 3

Left = Left + X - _Xm; Top = Top + Y - _Ym;

---

Avec Left et Top attributs de la Shape, _Xm et _Ym la position relative de la souris dans la Shape, et X et Y les coordonnées passées par l'évènement

PS: faut stocker _Xm et _Ym quand tu clicke down sur la shape

Bonne chance

Ca ne marche pas bien, quand je bouge ma TShape, elle suit ma souris mais elle essaye de revenir au milieu à chaque fois

Elle essaye de revenir au millieu de quoi ? 8O

Ce que je fais c'est que dans le OnMouseMove, j'utilise un booléen.
S'il est à faux (1er click avant le déplacement), je mets les _Xm et _Ym aux valeurs de X et Y, et je passe le booléen à true
S'il est à true j'utilise le code d'avant :wink:

En fait, si il retourner au milieu de ma TForm c'etait une erreur de programmation. Par contre j'ai toujours un probleme car ma Tshape ne suit pas assez rapidement le curseur. c bizarre je sais pas pkoi?

Salut !

Déclarer ces variables en global :

Code:

---

1 2 3

bool Move_Flag = false; int Move_x; int Move_y;

---

On utilise les événements liés à la souris de l'objet en question :

Code:

---

1 2 3 4 5 6 7

void __fastcall TForm1::Shape1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Move_Flag = true; Move_x = X; Move_y = Y; }

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TForm1::Shape1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(Move_Flag) { Shape1->SetBounds(Shape1->Left + X - Move_x, Shape1->Top + Y - Move_y, Shape1->Width, Shape1->Height); } }

---

Code:

---

1 2 3 4 5

void __fastcall TForm1::Shape1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Move_Flag = false; }

---

A plus !

merci bcp