Discussion :

[bhahmed]

bonsoir,

j'ai un problèm très siérieux et j'ai pas trouvé de solution et c'est très génant:
je crèe des TImages dynamquement et je les affectues un POPUPMENU

Code :

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

1
2
3
4
5
6
7
8
9
10
Image[i] = new TImage(this);
Image[i]->Parent = Panel1;
 
Image[i]->OnMouseDown = ImageMouseDown;
Image[i]->OnMouseMove = ImageMouseMove;
Image[i]->OnMouseUp   = ImageMouseUp;
 
 
Image[i]->PopupMenu = Form1->PopupMenu1;
Form1->PopupMenu1->AutoPopup =  true;

et j'utilse les évènements de la sourie :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
TImage *Image = (TImage*)Sender;
eqchoisi = Image->Tag;
 
deplacer = true;
imageenfonce = Button;
DeplX = X;
DeplY = Y;
if (Button == mbRight)
{
 if(Shift.Contains(ssCtrl)) {
 tab[eqverif] = eqchoisi;
 
   if ((lien [tab[eqverif-1]][tab[eqverif]]>=1)&&(lien [tab[eqverif]][tab[eqverif-1]]>=1))
   {
    if ( eqverif >= 1){ lien [tab[eqverif-1]][tab[eqverif]]=3;
                        lien [tab[eqverif]][tab[eqverif-1]]=3;}
     Form1->Analyser1->Enabled= true;
   }
   //Form1->ListBox1->Items->Add(tab[eqverif]);
   eqverif ++;
 
   lier();
 
 
 }
 else {
        if (Shift.Contains(ssAlt))
        { if (eqsupp >=2) eqsupp=0;
          supp[eqsupp]=eqchoisi;
          if ( eqsupp >= 1){ lien [supp[eqsupp]][supp[eqsupp-1]]=0;
                        lien [supp[eqsupp-1]][supp[eqsupp]]=0;
                       }
        eqsupp++;
        Form1->PaintBox1->Repaint();
        lier();
 
        }
         else
         {     Form1->Analyser2->Enabled =false;
                 Form1->sauvgarder1->Enabled = false;
               for (int j=0;j<comppop;j++)
               {
 
                if (eqchoisi==pop[j])
                {
                 Form1->Analyser2->Enabled =true;
                 Form1->sauvgarder1->Enabled = true;
                }
               }
 
         }
      }
 
}
 
}

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::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 
 
if (imageenfonce == 0) {
TImage *Image = (TImage*)Sender;
 if(deplacer)
{
 
Image->SetBounds( Image->Left + X - DeplX,
Image->Top + Y - DeplY,
Image->Width,
Image->Height);
 
label[Image->Tag]->Left = Image->Left;
label[Image->Tag]->Top = Image->Top -15;
} else {
        Form3->Edit3->Text = Image->Tag;
        Form3->Edit2->Text = label[Image->Tag]->Caption;
        }
 }
 
}

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
 
void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 
 
 
 
TImage *Image = (TImage*)Sender;
if (imageenfonce == 0) {
label[Image->Tag]->Left = Image->Left;
label[Image->Tag]->Top = Image->Top -15;
        deplacer = false;
        lier();
 
        Application->ProcessMessages();
} else {
        lien [eqchoisi][Image->Tag] = 1;
        lien [Image->Tag][eqchoisi] = 1;
        lier();
}
 
}

j'ai essaye 2 ou 3 solutions et ça ne marche pas.
MErci pour votre aide

[bhahmed]

personne ne peut m'aider

[say]

ben moi je cherches....et je vois toujours pas à quel moment tu as dit quel était ton problème?

[bhahmed]

mon problème : le popup s'affiche lorque je trace une ligne car je fais un click droit sur l'image de départ et je fais glisser la sourie jusqu'à l'image d'arrivée et lorsque je fais le traitement avec le "cltl" ou bien "alt" j'ai le même problème

[Mattetfamilly]

En fait tune peux pas mettre AutoPopup à true de cette manière...
au contraire, met un false.
Après avoir sélectionné les éléments de menus à afficher ou juste après que toutes les opérations à effectuer avant l'affichage du menu popup soient effectuées, il faut faire:

Code :

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

1
2
 
Form1->PopupMenu1->Popup();

Mattetfamilly.

[bhahmed]

merci pour cette indication, mais il faut mettre les coordonnées pour l'affichage du popup et quand j'ai mis celle de l'image le popoup s'affiche avec ces coordonnées mais par rapport à l'écran pas par rapport à mon interface.

Comment faire????

[bakaneko]

merci pour cette indication, mais il faut mettre les coordonnées pour l'affichage du popup et quand j'ai mis celle de l'image le popoup s'affiche avec ces coordonnées mais par rapport à l'écran pas par rapport à mon interface.

Comment faire????

Il suffit d'ajouter les coordonnées de ton interface aux coordonnées où tu veux afficher ton Popup;

Exemple :
Disont que tu veux afficher ton popup en X = 10 et Y = 25 sur ta fiche, il te suffit de faire :

Code :

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

1
2
3
4
5
 
int x = this->Left + 10;
int y = this->top + 25;
 
Form1->PopupMenu1->Popup(x,y);

[bhahmed]

ok ça marche pour les coordonnées.
mais moi j'utilise le bouton droit pour tracer une ligne entre 2 Timage.
ça ne marche plus avec cette méthode

[bakaneko]

ok ça marche pour les coordonnées.
mais moi j'utilise le bouton droit pour tracer une ligne entre 2 Timage.
ça ne marche plus avec cette méthode

j'avoue ne pas avoir saisi le nouveau problème

[bhahmed]

je crée un lien entre 2 Timages à l'aide du bouton droit de la sourie (je séléctionne le premier et je fais glisser la sourie jusqu'au deuxième) mais la méthode popup bloque cette action car le menu popup s'affiche avant que je fasse le déplacement

[bakaneko]

Voici un bout de code (fait rapidement) et qui devrait correspondre à ce que tu désires faire.

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
29
30
31
32
33
34
35
36
 
void __fastcall TForm1::Image1Click(TObject *Sender)
{
 PremiereImage = (TImage*)Sender; //copie de l'adresse de ma première image
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 if (Button == mbRight)//si bouton droit cliqué
 {
  DeuxiemeImage = (TImage*)Sender;//copie de l'adresse de ma deuxième image
  Popup->Popup(Left + DeuxiemeImage->Left + X,Top + DeuxiemeImage->Top + Y);//affichage popup
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Lien1Click(TObject *Sender)
{
 TCanvas* Dessin = Form1->Canvas;//récupération du canvas de la fiche
 
 Dessin->Brush->Color = clBlack; //couleur pinceau
 Dessin->Pen->Width = 4;//taille
 
 TPoint Debut;
 Debut.x = PremiereImage->Left + (PremiereImage->Width)/2;//coordonnée du premier point
 Debut.y = PremiereImage->Top + (PremiereImage->Height)/2;//milieu du TImage
 
 Dessin->MoveTo(Debut.x,Debut.y);//on déplace le pinceau au point de début
 
 TPoint Fin;
 Fin.x = DeuxiemeImage->Left + (DeuxiemeImage->Width)/2;//coordonnée du deuxième point
 Fin.y = DeuxiemeImage->Top + (DeuxiemeImage->Height)/2;//milieu du TImage
 
 Dessin->LineTo(Fin.x,Fin.y);//on trace la ligne
}
//---------------------------------------------------------------------------

Je te conseille de tester ce code dans un nouveau projet pour voir si ça te correspond. Si ce n'est pas ce que tu désires, il faudra me réexpliquer...

Nb: le popup contient un élément lien et est lié à ma deuxième image