Discussion :

[ero-sennin]

Bonsoir,

Je cherche à faire une Menu Déroulant qui contiendra des Sous-Menus (comme un MainMenu ). Le seul inconvénient, c'est que je voudrais que ce menu "s'exécute"lorsque je clic sur un bouton.
Peut être est ce simple (trop fatigué pour réfléchir ) ...

J'espère que vous pourrez m'éclaircir sur ce sujet

Merci et bonne soirée / matinée lol

[niglo]

Je pense que tu peux associer un Popupmenu à l'évènement clic gauche de ton bouton. Ca devrait presque faire l'affaire.
Regarde dans la FAQ si tu ne sais pas comment t'y prendre.

++

[winow]

Bonjour

Code :

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

1
2
3
4
5
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
PopupMenu1->Popup(400,200);
}

++A

[ero-sennin]

Bonjour,

Merci de vos réponses ! C'est vrai que c'était assez simple, quoi que en ce qui concerne la réponse de Niglo, je n'est rien trouvé dans la FAQ! J'ai peut-être mal cherché. Donc j'ai pas réussi à associé le déroulement du menu au clic sur le bouton. Si tu as une idée de comment procéder, cela serait intéressant

En attendant, j'utilise ce code ci dessous (merci à Winow):

Code :

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

1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PopupMenu1->Popup(Button1->Left+200,Button1->Top+150);
}

J'attends vos réponses ...
@ ++

[slylafone]

plus générique pour le placement du popup menu :

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TPoint p(0, Button1->Height);
  p = Button1->ClientToScreen(p);
  PopupMenu1->Popup(p.x,p.y);
}

Sinon je ne vois pas vraiment d'autres méthodes. Ca ne correspond pas à ce que tu veux faire ?

[ero-sennin]

Merci Slylafone, c'est exactement ce que je recherchai.
Par contre, tu pourrais me commenter les 2 première ligne de code car je ne vois pas trop comment cela fonctionne (cela est peut être simple, mais quand je ne comprends pas, je ne copie pas )

En tout cas, cela fonctionne très bien

[bandit boy]

Un petit résolu?

[ero-sennin]

Oui, mon problème est résolu mais avant de mettre le tag, j'aimerai avoir juste l'explication du code car si après je veux l'adapter comme je veux, je pense qu'il vaut mieux pour moi que je comprenne ce que je fais

Sinon, oui, mon problème est résolu (et je ne vais pas oublier de mettre le petit )

[slylafone]

Le problème est que la méthode Popup apparaît à l'emplacement spécifié par les coordonnées écran. Donc il faut convertir les coordonnées du bouton en coordonnées écran.

Pour n'importe quel control on a cette méthode

Code :

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

Types::TPoint __fastcall TControl::ClientToScreen(const Types::TPoint &Point);

=> Convertit le point spécifié, du système de coordonnées du client en coordonnées écran.

Voilà l'explication. a+

[ero-sennin]

Ah ok! Hé bien merci pour l'explication. Justement c'est sur passage que je bloquais

Voilà, un petit Résolu va pouvoir être mis maintenant