Delphi/Lazarus: ListView - PopupMenü nur anzeigen, wenn ein Eintrag ausgewählt ist

Ausgangspunkt: Wir haben eine ListView mit einem Popup-Menü, das einige Optionen zu den Einträgen in der ListView liefert (zum Beispiel den gewählten Eintrag löschen oder ähnliches). 

Problem: Das Popup-Menü wird auch angezeigt, wenn gar keine Items in der ListView ausgewählt sind. Zum Beispiel, wenn wir auf eine leere Fläche in der ListView klicken. Wir möchten nun erreichen, dass das Popup nur dann angezeigt wird, wenn auch Items in der Liste angewählt wurden.

Lösung: Als Lösung verwenden wir folgenden Code, den wir in das Event OnPopup des Popup-Menüs schreiben:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
   item: TListItem;
begin
   item := ListView1.selected;
 
   if item = nil then abort;
end;

Wir setzen die Variable "item" auf den selektierten Eintrag unserer ListView. Wenn kein Eintrag ausgewählt ist, steht "item" auf nil und wir brechen mit "abort" das Anzeigen des Menüs ab. So wird das Popup-Menü nur noch angezeigt, wenn auch ein Eintrag in der ListView gewählt ist.