ListView Item und ein Popup Menu

[bezarre]

Hallo,

danke für deine Antwort.

Delphi-Quellcode:

if Assigned(ListView1.Selected) then
    PopupMenu1.Popup();

So habe ich das jetzt gemacht. Nun muss ja aber noch eine X und Y Angabe bei Popup rein. Was geben die den an? Die Position wo sich das Popup öffnen soll? Falls ja, wie stelle ich die jetzige Position der Maus fest?

// Edit

Delphi-Quellcode:

procedure TForm2.ListView1Click(Sender: TObject);
var
  p: TPoint;
begin
  p := Mouse.CursorPos;
  if Assigned(ListView1.Selected) then
    PopupMenu1.Popup(p.X,p.Y);
end;

Habe das jetzt so gemacht, nun öffnet sich das Popup, aber immer beim Linksklick. Soll aber beim Rechtsklick sich öffnen. Muss ich da ein anderes Event nutzen?

Edit //

So habe ich es jetzt gelöst, falls es eleganter geht, immer her damit.

Delphi-Quellcode:

procedure TForm2.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  p: TPoint;
begin
  p := Mouse.CursorPos;
  if Assigned(ListView1.Selected) AND (Button = mbRight) then
    PopupMenu1.Popup(p.X,p.Y);
end;

Gruß
Micha