Discussion :

[BATiViR]

Bonjour a tous,
J'ai une question toute simple je pense : J'ai un TListView en Style Report et quand je clique droit sur une ligne il m'affiche un PopupMenu. Mon problème est qu'il m'affiche aussi le PopupMenu quand je clique droit sur le titre de la colonne et me fai une violation d'accès vu que je lit les informations qui se trouve dans la ligne J'utilise l'évenement OnContextPopup pour afficher mon PopupMenu comment je pourrai faire pour qu'il ne l'affiche que si il est dans les lignes?? Merci d'avance

[bjl]

je n'ai pas delphi sous la main amis
je suppose qu'avec

onMousedown et calcul de la position de la souris au moment du click et raz du shift si elle est du mauvais coté ou si Itemselected n'est pas valable.

[BATiViR]

Le problème est que si j'ai selectionner un Item avant et je clique droit sur le titre de la colonne, toujours le même problème

[ShaiLeTroll]

Pour le TreeView tu as NodeAtPos
Voir si il n'y a pas un ItemAtPos dans le ListView, je n'ai pas delphi ouvert

sinon, je me base sur ListView2.ItemFocused <> nil

[bjl]

Je suppose que l´évènement onmousedown doit intervenir avant le oncontextpopup.
en testant x et y (position de la souris) et si Button = mbRight tu es à même de modifier l'évènemet en modifiant les valeurs de button et shift

ça devrait emprcher le oncontextpopup

[Cl@udius]

Salut

Il suffit de vérifier dans le ContextPopup qu'un élément est sélectionné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  with TListView(Sender) do
  begin
    if not Assigned(Selected) then
      Handled := True  // Annuler le popup
    else
      // Ton traitement sur le popupmenu, par exemple:
      PopupMenu.Items[0].Caption := 'Elément n° ' + IntToStr(Selected.Index);
  end;
end;

@+ Claudius