OnMouseMove c++ builder

Bonjour,

Je me suis peut-être mal expliqué sur mon post précédent

En Delphi, le code ci-dessous permet de déplacer un composant sur l'écran :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin // pour glisser-déplacer le composant if (ssLeft in Shift) then // ou (ssRight in Shift) pour le bouton droit begin ReleaseCapture; SendMessage(Panel1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0); //Ici Panel1 ou autre composant ou Form end; end;

---

Existe-il un code analogue en c++ builder ?

Avec Firemonkey, if (Shift.Contains(ssLeft)) au lieu de if (Button == mbLeft) en VCL

Merci d'avance

Cette solution marche.
Elle nécessite deux variables globales, mais ça fonctionne. Elle est sur ce forum : http://chgi.developpez.com/tips2/

Dans .h

Code:

---

1 2 3

public: // Déclarations utilisateur bool Deplacement; int XPos, YPos;

---

Dans .cpp

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y)   { XPos = X; YPos = Y; if (Shift.Contains(ssLeft)) Deplacement = true; }     void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if ( Deplacement == true ) { Image1->Position->X += X-XPos; Image1->Position->Y += Y-YPos; } }   void __fastcall TFor:lol:m1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { Deplacement = false; }

---

Salut !

Code:

---

1 2 3 4 5 6

if ( Deplacement == true ) { Image1->Position->X += X-XPos; Image1->Position->Y += Y-YPos; }

---

Devrait poser un problème au niveau déplacement de l'objet dans le temps !!!
Il vaut mieux réactualiser XPos et YPos à chaque move :

Code:

---

1 2 3 4 5 6 7 8

if ( Deplacement == true ) { Image1->Position->X += X-XPos; Image1->Position->Y += Y-YPos; YPos = Y; XPos = X; }

---

Cela permet de garder l'objet sous le curseur !

A plus !

Merci henderson. Bonne journée