Discussion :

[nmathon]

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!

[seb.49]

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

[Lung]

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

[AnnSo]

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 :

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

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;

[nmathon]

Merci beaucoup pour vos réponses rapides et efficaces!