Discussion :

[andolini]

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

[Captain_JS]

Ah tiens un sujet que je connais

Code :

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

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

[andolini]

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

[Captain_JS]

Elle essaye de revenir au millieu de quoi ?

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

[andolini]

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?

[henderson]

Salut !

Déclarer ces variables en global :

Code :

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

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 :

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

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 :

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

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 :

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

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

A plus !

[andolini]

merci bcp