Déplacement d'Objets

slt t le monde;

Dans mon application, je permets a l'utilisateur pendant l'executution de deplacer les objets existant sur la Form !

dans mon code l'evenement OnMouseUp ne met la variable "Clic" a faut ce qui permet a l'utilisateur de deplacer les objets sans maintenir le bouton gauche de la souris enfoncé ! or que je ne veux pas de ca !

Voici mon code:

Code:

---

1 2	bool Clic;

---

le reste du pgme

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 26 27 28 29

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (Clic==true) { const SC_DragMove = 0xF012;   ReleaseCapture(); ((TControl*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0); } }   //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Clic=true; }   //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Clic=false; } //---------------------------------------------------------------------------

---

je compte sur vous mes amis :wink:

Cordialement NaDiA!


[Modération, Alacazam : les titres doivent présenter le sujet et uniquement cela ; pas de "help", "urgent" ... cf Règles du Forum, merci]
Ancien titre : Need-help Deplacement-des-objets.Urgent !

Bonsoir,

Citation:

---

Envoyé par NaDiA_SoFt

dans mon code l'evenement OnMouseUp ne met la variable "Clic" a faut ce qui permet a l'utilisateur de deplacer les objets sans maintenir le bouton gauche de la souris enfoncé ! or que je ne veux pas de ca !

---

C'est bien pratique d'avoir mis le code ... je peux tester directement !
Par contre, tes explications me paraissent un peu confuses.

En fait, lorsque je lâche le bouton gauche, l'objet ne se déplace plus !!!
Visiblement c'est ce qui te génait ...

Si tu pouvais expliquer plus calmement :D
Mathieu

Bonsoir ,

je vous reexplique mon pbme ..donc dans mon application ; le déplacement des objets se fait pas comme prévu car moi je veux un deéplacement standard ie : je dois maintenir le bouton gauche de la sourie enfoncé lors du déplacement meme ( comme un deplacement standard ) !

j'espere que je me suis bien exprimée cette fois ci :wink:

Cordialement NaDiA !

Nota : desole pour le titre Mr Alacazam :wink:

Bonsoir,

Citation:

---

Envoyé par NaDiA_SoFt

le déplacement des objets se fait pas comme prévu car moi je veux un déplacement standard ie : je dois maintenir le bouton gauche de la sourie enfoncé lors du déplacement meme ( comme un deplacement standard ) !

---

Et bien, je suis perplexe :!:
Car c'est exactement ce résultat que j'obtiens ...

Es-tu sûre de ne pas modifier ailleurs la variable Clic qui, je suppose, est globale ?

Etant donné que j'ai un vieux Builder (donc vieux compilo), ça pourrait différer (mais ça me paraît bizarre) ... si ça ne s'arrange pas essaye cette autre méthode :

Code:

---

1 2	int PosX, PosY; bool Clic;

---

Code:

---

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

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (!Clic) { Clic = true; PosX = X; PosY = Y; } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (!Application->Active) Clic = false; if (Clic) { Left = Left + X - PosX; Top = Top + Y - PosY; } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Clic = false; }

---

Bonne Continuation,
Mathieu

Merci a vous Mr Alacazam mais vous savez koi ! Sa donne toujours la meme resultat

pour bien voir si la variable Clic ne se change pas false j'ai fait cet exemple : dans ce code j'essaye de changer la couleur de la Form a chaque evenement de la sourie; dans OnMouseDown je la mets a clRed et pour OnMouseUp je la mets a clBlack.

pour OnMousedown sa fonctionne bien et la Form Prend la couleur Red mais pour OnMouseUp ca ne fonctionne pas et la Form ne prend jamais la couleur Black ce qui veut dire que la Variable Clic reste toujours a true une fois qu'on clique
voici le code.

Code:

---

1 2 3

int PosX, PosY; bool Clic;

---

Code:

---

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

//--------------------------------------------------------------------------- void __fastcall TForm1::Button1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if (!Application->Active) Clic = false; if (Clic) { ((TControl*)Sender)->Left = ((TControl*)Sender)->Left + X - PosX; ((TControl*)Sender)->Top = ((TControl*)Sender)->Top + Y - PosY;     const SC_DragMove = 0xF012;   ReleaseCapture(); ((TControl*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0);   } }

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

//---------------------------------------------------------------------------   void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (!Clic) { Clic = true; PosX = X; PosY = Y; Color=clRed; }   }

---

Code:

---

1 2 3 4 5 6 7 8 9

//--------------------------------------------------------------------------- void __fastcall TForm1::Button1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Clic=false; Color=clBtnFace; } //---------------------------------------------------------------------------

---

Cordialement NaDia !

:arrow: NOTA: je ne compile que cette portion du program c-a-d qu'il y a pas de risque que la variable Clic soit modifié ailleurs !

Ah ...

(Regarde déjà si mon code NON modifié fonctionne pour déplacer ta Form en cliquant n'importe où dessus).

Ensuite, essaye pour un objet en enlevant ça :

Code:

---

1 2 3 4

const SC_DragMove = 0xF012;   ReleaseCapture(); ((TControl*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0);

---

Attention, si tu fais des copier-coller de codes, il te faudra quand même affecter les événements FormMouseMove, Up et Down (en double-cliquant dans l'Inspecteur d'Objet, second onglet).

Bonne Chance,
Mathieu

sorry Mr ca foncitionne tres bien merci infiniment :lol: :wink:

Supeeeer, ca Fonctionne meme pour les images Vous etes Super Mr Alacazam :wink: .