PopupMenu sur item de TListBox

Bonjour,

je liste des éléments dans un TListBox. J'ai associé mon PopupMenu à ma liste puisque je propose un PopupMenu pour Supprimer/éditer l'élément sélectionné.

Voilà que le PopupMenu s'affiche en tout temps lors du clique droit, même si aucun item de la liste n'est sélectionné.

Comment puis-je régler ce problème?

Merci d'avance!

en vérifiant si un item est sélectionné lors du clic droit...

Donc, ne lie pas le PopupMenu à ta listBox, et fais-le apparaître, quand un Item est sélectionné.

:roll: :wink:

Tu peux du coup utiliser l'évenement
"OnContextPopup" de ta ListBox (sans lier le popup) pour n'afficher le popup que si un élément est sélectionné

et faire :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var p : TPoint; begin p := ClientToScreen(MousePos); PopupMenu1.Popup(p.x + TListBox(Sender).Left,p.y + TListBox(Sender).Top); end;

---

Merci beaucoup pour vos réponses rapides et efficaces! :)