Discussion :

[Jéremy A]

Bonjour,


Je débute dans la programmation avec Delphi, et je voudrai savoir comment je peux ouvrir un menu popup lors d'un clic gauche sur un bouton.

J'ai essayé le composant PopupMenu mais je n'arrive à m'en servir qu'avec un clic droit.

Merci d'avance.

Jérémy

[Smortex]

Dans le OnMouseDown de ton composant, tu met :

Code :

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

MonPopupMenu.Popup(X,Y);

Bon dev'

[Chonchon]

Bonjour
la réponse de Smortex ne permet pas le clic gauche mais Le menu apparaît à l'emplacement spécifié par les coordonnées écran (exprimées en pixels) X et Y.
A+

[Jéremy A]

Il n'y a pas un moyen de faire apparaître le menu popup au coin supérieur droit du bouton sur lequel on clique ? Parce que si je bouge la fenêtre, les coordonées doivent changer... Donc le menu apparaît toujours au même endroit...

[Seb]

SAlut,

Je pense que tu as la possibilité de récupérer le Top et Left du composant sur lequel tu cliques et donc de positionner le menu par rapport à cet emplacement.

A+,

Seb.

[Smortex]

Utilise la propriété ClientOrigin des composant pour avoir leur position par rapport à l'origine de l'écran (coin suppérieur gauche), ou Mouse.CursorPos pour la position du curseur de la souris par rapport à l'origine de l'écran.

[Jéremy A]

C'est bon
Merci Smortex !

Code :

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

PopupMenu1.Popup(Button1.ClientOrigin.X,Button1.ClientOrigin.Y)

[Smortex]

De rien !

Si tu as résolu ton rpoblème, édite ton premier message et rajoute [Résolu] dans le titre