Kontext Menü für TListView

[Amicello]

Das Problem ist wahrscheinlich trivial aber ich google mich gerade im Kreis.

Aufgabe: Ich habe ein ListView mit z.B. Apfel, Birne, Banane.
Per Rechtsklick soll ein Kontextmenü mit "Löschen" erscheinen, um das geklickte ListItem zu entfernen.
Ebenso "Liste Löschen" für ein ListView.Clear.

PopUp Menü geht normal auf und reagiert auch. Der OnClick Sender ist in dem Zusammenhang vermutlich das geklickte TMenuItem.
Wie komme ich jetzt an den Pointer für das geklickte ListView bzw. ListItem?

Kann mir da mal bitte jemand mit einem Beispiel o.Ä. aufs Pferd helfen?

[Amicello]

Ok.. hat sich erledigt Falls sonst wer soetwas braucht:

1. OnMouseDown Handler

Code:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var   lv: TListView;
   li: TListItem;
        
begin   if Button <> mbRight then exit;
        lv := TListView(Sender);
   li := lv.GetItemAt(X,Y);
   lv.Selected := li;
end;

2. Menu Item OnClick

Code:

procedure TForm1.Delete1Click(Sender: TObject);
var   li:TListItem;

begin   li := ListView1.Selected;
   if Assigned(li) then li.Delete;
end;

[peterbelow]

TPopupMenu.PopupComponent gibt Dir die Komponente, zu der das Menu gehört, d.h. deinen Listview. Dessen Selected-Eigenschaft gibt den zuletzt angeklickten Eintrag, allerdings kann ich mich nicht mehr so recht entsinnen, ob ein Klick mit der rechten Maustaste auch den Eintrag unter der Maus selektiert...

[Amicello]

Perfekt.. danke für die PopUpComponent property