Pb de POPUPMENU

Version imprimable

Pb de POPUPMENU

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:

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:

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:

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:

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

01/11/2006, 20h32
bhahmed

personne ne peut m'aider :cry:
02/11/2006, 12h35
say

ben moi je cherches....et je vois toujours pas à quel moment tu as dit quel était ton problème?
02/11/2006, 20h08
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
06/11/2006, 16h38
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:

1 2 Form1->PopupMenu1->Popup();
Mattetfamilly.
07/11/2006, 11h04
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????
07/11/2006, 11h08
bakaneko
Citation:

Envoyé par 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????

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:

1 2 3 4 5 int x = this->Left + 10; int y = this->top + 25; Form1->PopupMenu1->Popup(x,y);
07/11/2006, 11h19
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
:(
07/11/2006, 11h25
bakaneko

Citation:

Envoyé par 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
:(

j'avoue ne pas avoir saisi le nouveau problème :koi:
07/11/2006, 11h37
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

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

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