salut,
j'ai créé des Timage dynamiquement dans un panel et j'aimerai les faire déplacer avec la sourie;
j'ai réussi à faire déplacer des timage créées d'une manière statique mais j'ai pas pu réussir l'autre.
en plus j'aimerai faire des liaison entre les images. j'ai crée un paintbox pour tracer les lignes mai je ne sai pas comment extraire les nouveaux coordonnées des Timages.
ci- joint mon code de déplacement des images statiques :


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
26
27
28
void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  MoveFlag = true;
Movex = X;
Movey = Y;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(MoveFlag)
{
Image2->SetBounds( Image2->Left + X - Movex,
Image2->Top + Y - Movey,
Image2->Width,
Image2->Height);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 MoveFlag = false;
}
//---------------------------------------------------------------------------


et voici le code de la création dynamique des Timage :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TIcon *rond1 = new Graphics::TIcon();
rond1->LoadFromFile("D:\\Mes images\\PFE\\cpu\\PC1.ico");
 
 
image1->Picture->Icon->Assign(rond1);
image1->Parent = Panel1;
 
}