Discussion :

[magdani]

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 delphi :

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

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

[magdani]

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 :

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

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

Dans .cpp

Code :

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

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;
}

[henderson]

Salut !

Code :

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

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 :

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

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 !

[magdani]

Merci henderson. Bonne journée