Popupmenu dans un listview

Question

Bonjour à tous.

Je suis nouveau dans la programmation delphi et j'ai un probleme :

Dans une form j'ai dispose un treeview et une listview et je voudrais faire apparaitre un popupmenu sur la listview en cas de click droit de la souris seulement si un item est selectionne.

Merci d'avance.

Zorg

cs_Delphiprog · Answer

Dans les méthodes du composant TListView, il y figure :

Renvoie l'élément de la liste se trouvant à la position spécifiée.

function GetItemAt(X, Y: Integer): TListItem;
 Donc, si cette fonction renvoie autre chose que Nil dans le cas où l'utilisateur clique sur le contrôle TListView, alors, tu affiches ton popmenu.

Simple, non ?
En prime, tu connais même l'élément sélectionné !

May Delphi be with you.
Delphi advanced

zorg63 · Answer

Simple et efficace. Merci beaucoup.

Ah! juste une petite question, j'ai bien trouve l'evenemment OnClick pour la listview, mais comment savoir que c'est un click droit?

Zorg

cs_Delphiprog · Answer

Réponse :
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    If ListView1.GetItemAt(x, y) = nil then
      ShowMessage('Vous n''avez rien sélectionné !')
    else
      with ListView1 do
        ShowMessage(
          Items[Items.IndexOf(GetItemAt(x, y))].Caption
         + ' sélectionné.');
end;
May Delphi be with you.
Delphi advanced

zorg63 · Answer

Merci encore une fois. Je vais pouvoir bien avancer maintenant.

Zorg

Popupmenu dans un listview

4 réponses

Votre réponse

Discussions similaires