Popupmenü bei Maus öffnen

[Delphi Star]

Wie kann man ein Popupmenü bei der aktuellen Position Maus öffnen :?:

[-NIP-]

Müsste so gehen

Delphi-Quellcode:

PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

Und dann noch ein paar Korrekturen mit der Position.

-NIP-

[SirThornberry]

@nip: grundsätzlich richtig, allerdings sollte man das Ergebnis von Mouse.Cursorpos auf eine Variable zwischenspeichern da beim Aufruf von Mouse.Cursorpos intern nix anderes gemacht wird als

Delphi-Quellcode:

  windows.getcursorpos

Das heißt, es wird 2 mal die cursorposition per api abgefragt obwohl sie sich nicht geändert hat. Also entweder mit

Delphi-Quellcode:

  LMousepos := Mouse.Cursorpos;

oder gleich

Delphi-Quellcode:

  GetCursorpos(LMousepos);

was auch performanter ist da nicht noch zusäzlich eine weitere Funktion aufruft die letztendlich doch wieder diese aufruft...

Also am besten so

Delphi-Quellcode:

var LCursorPos: TPoint;
begin
  GetCursorPos(LCursorPos);
  PopupMenu1.Popup(LCursorPos.X, LCursorPos.Y);