PopupMenu sur Item de ListView

PopupMenu1.AutoPopup à false.

et dans ListView1.ContextPopup :

Code:

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;