show popupmenu in listview if

[Ericktux]

Hi friends, I have a listview with a popupmenu and I want the popupmenu to only be displayed when I right-click on an existing item. I have used the following code but it shows an error: 

Code: Pascal  [Select][+][-]

1. procedure TForm1.PopupMenu1Popup(Sender: TObject);
2. begin
3.   if ListView1.SelCount=0 then begin
4.     Abort;
5.   end;
6. end;
7.  

I tried this other one but the popupmenu always appears even if I don't select anything. 

Code: Pascal  [Select][+][-]

1. procedure TForm1.PopupMenu1Popup(Sender: TObject);
2. begin
3.   if ListView1.Selected = nil then
4.     Exit;
5. end;

help please

[Remy Lebeau]

Rather than using the TListView.Selected property, try instead the TListView.GetItemAt() method, using the TPopupMenu.PopupPoint as the coordinates to search at.

However, I would not abort the PopupMenu in its own OnPopup event.  Instead, I would set TPopupMenu.AutoPopup to false, and then call TPopupMenu.Popup() in the TListView.OnMouseUp or TListView.OnContextPopup event if TListView.GetItemAt() finds an item under the mouse.

Do be aware that the popup menu can be invoked by keyboard instead of mouse, in which case using TListView.Selected will make sense in that case.

[ASerge]

Hi friends, I have a listview with a popupmenu and I want the popupmenu to only be displayed when I right-click on an existing item.

Code: Pascal  [Select][+][-]

1. procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
2. begin
3.   if Selected then
4.     ListView1.PopupMenu := PopupMenu1
5.   else
6.     ListView1.PopupMenu := nil
7. end;

At start do not set ListView1.PopupMenu