D&D d'une TImage..

BOnjour,

voila, je suis en train de faire un petit programme qui utilise des images.
Je voudrais pouvoir faire un D&D pour pouvoir les déplacer sur ma Form.
Si possible avec un TShape carré pour faire un style d'ombre...
J'ai vu quelques posts sur ce concept, mais rien de concret...

MErci de votre aide.
Flo

voila,

j'ai essayer de faire un truc.
dans l'evenement MouseDown de mon image, j'ai fait apparaitre un TShape au coordonnée de ma souris, et je rafraichis la position de mon carre tant que j'appuis sur mon bouton gauche de ma souris et quand je relache, ca fait réapparaitre mon image au là ou j'ai relacher ma souris...
mais vu qu'un exemple vaut plus qu'un bon discours :

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 30 31 32 33 34

void __fastcall TForm1::MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TImage *pion = new TImage(Form1); TPoint *Pos = new TPoint; GetCursorPos(Pos);   carre->Height = 58; carre->Width = 58;   TPoint *Pos = new TPoint;   pion = dynamic_cast <TImage *>(Sender); int posx,posy; while ((GetAsyncKeyState(VK_LBUTTON) & 0x8000) != 0) {     carre->Visible = true; pion->Visible = false;   GetCursorPos(Pos); posx = Pos->x - Form1->Left-4-24; posy = Pos->y - Form1->Top - 23-24 ;   carre->Top = posy; carre->Left = posx;   pion->Left= posx; pion->Top = posy; } carre->Visible = true; pion->Visible = false; delete Pos; }

---

bon, on va ignorer les erreurs de syntaxe pour se concentrer sur le principe.:oops:

Le probleme est que là lors que je laisse appuyer le bouton, et que je bouge la souris, le carre n'apparait pas.

Salut !

Si j'ai bien compris :
- on doit cliquer sur un TImage
- faire apparaître un TShape qui va suivre le mouvement de la souris.
- l'image qui est à l'origine de l'action doit se placer en lieu est place du Shape qui disparait.

Si on supppose (n) TImages et un TShape dont la propriété Visible est false.
On va supposer également que les TImage se partagent les mêmes événementielles : Image1MouseDown, Image1MouseMove et Image1MouseUp
Voici comment ça peut se faire :

Déclarations globales (ou propriétés de la classe TForm1... c'est comme on veut)

Code:

---

1 2 3

bool IsMoving = false; TPoint Start; TImage *Target;

---

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 30 31 32 33

void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Target = (TImage*)Sender; Start = Point(X,Y); Shape->SetBounds(Target->Left, Target->Top,Target->Width, Target->Height); Shape->BringToFront(); //au cas où... Shape->Visible = true; IsMoving = true; }   void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(IsMoving) { Shape->Left = Shape->Left + X - Start.x; Shape->Top = Shape->Top + Y - Start.y; Start = Point(X,Y); } }     void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(IsMoving) { IsMoving = false; Shape->Visible = false; Target->SetBounds(Shape->Left, Shape->Top, Target->Width, Target->Height); } }

---

C'est juste un exemple !

A plus !

ok merci.
Je verrais cela ce soir.
:)
Je te dirais ce que ca donne..

Salut !

Sinon, pour déplacer un TImage comme s'il était décollé du plan, donc en utilisant le TShape comme ombre sous l'image, on peut faire comme suit, en gardant les mêmes variables :

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 30 31 32 33

void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Target = (TImage*)Sender; Start = Point(X,Y); Shape->SetBounds(Target->Left + 4, Target->Top + 4,Target->Width, Target->Height); Shape->BringToFront(); // passe en avant plan... Target->BringToFront(); //...mais sous l'image ! Shape->Visible = true; IsMoving = true; }   void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(IsMoving) { Target->Left = Target->Left + X - Start.x; Target->Top = Target->Top + Y - Start.y; Shape->Left = Target->Left + 4; Shape->Top = Target->Top + 4; } }   void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(IsMoving) { IsMoving = false; Shape->Visible = false; } }

---

A plus !

salut,

c'est N I C K E L !
c'est simple, et ca marche !

Merci beaucoup :)