Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

Je travail sur une liste view actuellement, j'ai réussi avec quelque recherche à afficher un popup menu sur l'évenement oncontextmenu du listview

procedure TFConversion.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
Var
Pt: TPoint;
begin
Pt := ListView1.ClientToScreen(MousePos);
PopupMenulistView.Popup(Pt.x,PT.Y);
end;

Ce que je n'arrive pas a faire c'est d'ouvri le popup uniquement sur une liste (un item) existant.
Si mon liste view comporte qu'une ligne, le clique droit, doit fonctionner uniquement sur cette dernière et non pas sur les titres de colonne ou le blanc en dessous.

comment je peux faire cela ?

[Dr.Who]

PopupMenu1.AutoPopup à false.


et dans ListView1.ContextPopup :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm17.ListView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var Pos : TPoint;
begin
  Pos := ListView1.ClientToScreen(MousePos);
  if (ListView1.SelCount = 1) and (ListView1.Selected <> nil) then
  begin
    PopupMenu1.Tag := integer(ListView1.Selected);
    PopupMenu1.Popup(Pos.X, Pos.Y);
  end
  else
    PopupMenu1.Tag := 0;
end;
 
procedure TForm17.PopupMenu1Popup(Sender: TObject);
var
  TLI : TListItem;
begin
  if PopupMenu1.Tag <> 0  then
  begin
    TLI := TListItem(PopupMenu1.Tag);
    PopupMenu1.Items[0].Caption := '('+TLI.Caption+')';
  end;
end;