Afficher un menu lors d'un click droit sur l'image

Version imprimable

20/09/2006, 19h25
bhahmed

Afficher un menu lors d'un click droit sur l'image

bonsoir,

j'ai des images sur mon interface, j'aimerai ajouté un menu lorsque l'utilisateur fais un click droit sur l'image.
Mais le pb c'est que j'utilise le bouton droit pour déplacer les images sur mon plan de travail.
y-t'il une astuce pour ça.
Merci
20/09/2006, 19h35
pottiez

Il faut que tu ajoute un composant TPopupMenu puis que tu l'associe avec ton composant TImage (tu as une propriete TPopupMenu sur le composant TImage), il ne te reste plus qu'a ajouter les choix de ton menu et remplir les fonction OnClick.
20/09/2006, 21h26
bhahmed

comme j'ai dis j'utilse le bouton droit pour déplacé les images.
donc quand je déplace l'image le menu s'ffiche et c'est génant.
20/09/2006, 22h44
pottiez
Tue peut mettre la propriété AutoPopup du Menu à false,
détecter si ta souris bouge pendant un clic avec les evenement OnMouseDown, OnMouseMove et OnMouseUp, et si elle na pas bougé, dans OnMouseUp tu met
Code:

1 2 3 4 TPoint *Position = new TPoint; GetCursorPos(Position); MonPopupMenu->Popup(Position->x,Position->y) ; delete Position;
20/09/2006, 22h51
ero-sennin

Grillé! Donc pas la peine que je mette mon Post lol. J'avais la même idée que Mr Pottiez, c'est à dire travailler avec le OnMouseUp et les positions.

Je vois qu'il y a un joli bout de code :mrgreen:

Bon Courage ;)

Salut !

Comme le bouton droit est pris par le déplacement, il reste la possibilité d'utiliser conjointement les touches SHIFT, CTRL et ALT pour différencier d'autres actions. Tout dépend de la combinaison la plus logique à tes yeux.

Par exemple :

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
if(Button == mbRight)
    {
    if(Shift.Contains(ssShift))
        {
        //... ce qu'il faut pour déplacer les images
        }
    else
        {
        if(Shift.Contains(ssCtrl))
            {
            //un autre opération possible
            }
        else
            {
            if(Shift.Contains(ssAlt))
                {
                //encore une autre opération possible
                }
            else
                {
                TPoint Ici;
                //il faudra donc calculer les coordonnées écran pour le popup
                //comme celà a été indiqué... 
                PopupMenu->Popup(Ici.x, Ici.y); 
                }
            }
        }
    }

En fait, tu peux jongler comme bon te semble, y compris tenir compte d'une combinaison au niveau des touches mais dans ce cas ça devient difficile à gérer par l'utilisateur...

A plus !

20/09/2006, 23h26
henderson

Salut !

La solution de pottiez devrait être assez déroutante pour l'utilisateur peu habitué aux actions en temps différé.
Mais en fait... pourquoi pas après tout ?

A plus !

désolé j'ai fait une petite erreur, je n'utilise pas le bouton droit pour le déplacement mais plutôt le bouton gauche.
Mais voici l'utilisation du mon bouton droit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
 if ((Button == mbRight)&&(Shift.Contains(ssCtrl)))
 {
 ....  
  }
 
 if ((Button == mbRight)&&(Shift.Contains(ssAlt)))
 { ....
 }
 
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 
 
if (imageenfonce == 0) {
TImage *Image = (TImage*)Sender;
 if(deplacer)
{
 
// bouton gauche
 
} else {
       // bvouton droit
        }
 }
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 
 
if (imageenfonce == 0) {
// bouton gauche
 
} else {
       //bouton droit 
}
 
}

je nn sais pas ou je dois mettre le

Code:

PopupMenu1->AutoPopup = true;

21/09/2006, 18h31
pottiez

Fait tu quelques chose avec le bouton droit ? car si finalement tu ne fait rien avec le bouton droit tu peut simplement remettre la propriété AutoPopup à true, et ne plus mettre le ce code.
21/09/2006, 18h57
bhahmed

avce le bouton droit
1- je trace les liens entre mes images
2- (+clt) je sélectionne un chemin
3- (+alt) je supprime un lien

Dans ce cas, tu peut mettre une variable dans le .h de ta form :
Code:

1 2 private : bool menu ;
initialisé à false dans le constructeur :
Code:

1 2 3 4 TForm1::TForm1(){ menu = false ; }
dans OnMouseDown tu la met à true si c'est un clic droit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if ((Button == mbRight)&&(Shift.Contains(ssCtrl))) { .... } if ((Button == mbRight)&&(Shift.Contains(ssAlt))) { .... } if (Button == mbRight){ menu = true ; } }
Dans OnMouseMove tu met a false
et dans OnMouseUp si c'est à true tu active le menu et tu met à false
Code:

1 2 3 4 5 ...OnMouseUp(...){ if(menu == true){ MonMenu->Popup ; menu = false ; }

21/09/2006, 19h42
bhahmed

Pour la fonction POPUP il faut 2 entiers
J'ai essayé avec les corrdonnées de la sourie (X,Y) le menu s'affiche selon les coordonnées de l'écran même chose si j'utilise les propriétés letf et top de l'image.

Que faire ???
21/09/2006, 20h10
pottiez
Solution en message 4 :
Citation:
Envoyé par pottiez

Tue peut mettre la propriété AutoPopup du Menu à false,
détecter si ta souris bouge pendant un clic avec les evenement OnMouseDown, OnMouseMove et OnMouseUp, et si elle na pas bougé, dans OnMouseUp tu met

Code:

1 2 3 4 TPoint *Position = new TPoint; GetCursorPos(Position); MonPopupMenu->Popup(Position->x,Position->y) ; delete Position;
:P

Salut !

Il faut déployer logiquement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if(Button == mbRight)
    {
    if(Shift.Contains(ssCtrl))
        {
        //...je sélectionne un chemin
        }
    else
        {
        if(Shift.Contains(ssAlt)))
            { 
            //...je supprime un lien
            }
        else
            {
            //Aucune touche (CTRL ou ALT) n'est enfoncée donc...
            //...
            //PopupMenu->Popup(...);
            }
        }
    }

A plus !

21/09/2006, 21h26
pottiez

C'est vrai que c'est plus claire, j'ai repris bétement le code alors que j'aurais pu lui améliorer de cette manière :oops:
21/09/2006, 21h41
bhahmed

ça ne marche pas ,
j'ai le menu qui s'affiché qd je fais les liaisons
et l'autre pb c'est que ça se généralise sur toutes les images et moi j'ai trois types d'images

Salut !

Tu peux éventuellement utiliser le Tag de chaque image pour y placer une valeur permettant de les différencier.

Ici je suppose 3 types d'images (Tag = 0,1 ou 2) ainsi que l'existence de 3 PopupMenu :

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
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
TImage *Cible = (TImage*)Sender;
if(Button == mbRight)
    {
    if(Shift.Contains(ssCtrl))
        {
        }
    else
        {
        if(Shift.Contains(ssAlt))
            {
            }
        else
            {
            TPopupMenu *PpMenu = NULL;
            switch(Cible->Tag)
                {
                case 0 : PpMenu = PopupMenu1; break;
                case 1 : PpMenu = PopupMenu2; break;
                case 2 : PpMenu = PopupMenu3; break;
                }
            if(PpMenu != NULL)
                {
                TPoint Pos;
                GetCursorPos(&Pos);
                PpMenu->Popup(Pos.x, Pos.y);
                }
            }
        }
    }
}

Ca fonctionne chez moi, donc...

A plus !

ça ne marche pas pour moi car j'ai besoin de l'action bouton droit seul car je fais de liens entre les images.
Voici le code des é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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
 
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 ( eqverif >= 1){ lien [tab[eqverif-1]][tab[eqverif]]=3;
                        lien [tab[eqverif]][tab[eqverif-1]]=3;}
 
   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();
         }
 
      }
 
}
 
}
//---------------------------------------------------------------------------
 
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 {
        Edit3->Text = Image->Tag;
        Edit2->Text = label[Image->Tag]->Caption;
        }
 }
 
}
//---------------------------------------------------------------------------
 
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();
}
}