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

**bhahmed** · 20/09/2006, 19h25

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

**pottiez** · 20/09/2006, 19h35

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.

**bhahmed** · 20/09/2006, 21h26

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.

**pottiez** · 20/09/2006, 22h44

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 :

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

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

**ero-sennin** · 20/09/2006, 22h51

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

Bon Courage

**henderson** · 20/09/2006, 23h11

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 :

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

**henderson** · 20/09/2006, 23h26

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 !

**bhahmed** · 21/09/2006, 16h28

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 :

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

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 :

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

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

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 :

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

PopupMenu1->AutoPopup = true;

**pottiez** · 21/09/2006, 18h31

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.

**bhahmed** · 21/09/2006, 18h57

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

**pottiez** · 21/09/2006, 19h20

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

Code :

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

1
2
private :
bool menu ;

initialisé à false dans le constructeur :

Code :

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

1
2
3
4
 
TForm1::TForm1(){
  menu = false ;
}

dans OnMouseDown tu la met à true si c'est un clic droit

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

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

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

**bhahmed** · 21/09/2006, 19h42

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

**pottiez** · 21/09/2006, 20h10

Solution en message 4 :

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 :

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

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

**henderson** · 21/09/2006, 20h45

Salut !

Il faut déployer logiquement :

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

**pottiez** · 21/09/2006, 21h26

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

**bhahmed** · 21/09/2006, 21h41

ç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

**henderson** · 22/09/2006, 00h31

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 :

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

**bhahmed** · 22/09/2006, 10h54

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

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

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

C++Builder

Discussions similaires

Partager

Partager