Discussion :

[bhahmed]

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

[Mattetfamilly]

Méthode bourin:
tu déclares un tableau de TImage dans tes variables globales:
TImage *MyImages[25]; //25 étant alors le nombre maxi d'image que tu vas créer dynamiquement... Tu peux ajuster cette valeur en fonction de tes besoins.


En revanche attention avec ton code, cela signifie que tes variables existantes deviennent des tableaux...

[bhahmed]

j'ai déclaré le Timage comme ça :

Code :

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

1
2
3
4
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
image1 = new TImage(Form1);

il faut donc juste changer cette déclarartion.
et pour les déplacer y t'il une solution
Merci

[henderson]

Salut !

En fait, si j'ai bien compris ce que tu cherches à faire, tu peux gérer chaque image avec une même méthode pour chaque événement.
Il faut pour celà, affecter ces méthodes aux Images lors de leur création.
Voici un exemple de code pour la création dynamique et autant utiliser un TList.

L'astuce consiste à travailler au niveau du Sender qui est un pointeur sur l'objet qui a sollicité la méthode.
Voici tes méthodes et la modification qu'il faut y apporter :

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
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
//...inchangé
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(MoveFlag)
    {
    TImage *Image = (TImage*)Sender; // << le sender est notre image
    Image->SetBounds(Image->Left + X - Movex, 
                     Image->Top + Y - Movey, 
                     Image->Width,
                     Image->Height);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
//...inchangé
}
//---------------------------------------------------------------------------

Code :

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

TList *Images = new TList;

Le code pour la création des images :

Code :

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

1
2
3
4
5
6
7
8
TImage *Image = new TImage(this); //this (Form1) ou Panel1 au choix...
Image->Parent = Panel1;
//Affectation des méthodes
Image->OnMouseDown = Image2MouseDown;
Image->OnMouseMove = Image2MouseMove;
Image->OnMouseUp   = Image2MouseUp;
//... le reste de l'initialisation...
Images->Add(Image);

Il ne faudra pas oublier de libérer la liste, dans la OnClose de Form1, sans
pour autant détruire les images puisque c'est leur propriétaire (Form1 ou le panel)
qui s'en chargera :

Code :

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

1
2
Images->Clear();
delete Images;

pour accéder aux images depuis la liste :

Code :

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

1
2
3
4
5
6
TImage *Image;
for(int j = 0; j < Images->Count; j++)
    {
    Image = (TImage*)Images->Items[j];
    //... s'il y a quelque chose à faire sur l'image....
    }

A plus !

[ero-sennin]

La méthode d'henderson est celle que j'ai utilisé (en delphi) pour faire exactement la même chose que toi bhahmed, et ca fonctionne très bien !
Par contre, moi je n'ai pas créé de TList... je ne vois pas trop à quoi ca sert en faite ...

Voilà
@ +

[bhahmed]

ero-sennin qu'est ce que tu as fais alors ?