StringGrid: PopupMenu in OnMouseDown positionieren

[Helmi]

Hallo,

ich möchte im OnMouseDown der StringGrid ein PopupMenu positionieren.
Es soll nur angezeigt werden, wenn mit der rechten Maustaste auf die 1. Spalte gelickt wird.

Im OnMouseDown hab ich folgenden Code:

Delphi-Quellcode:

procedure TEinstellungenForm.StringGrid_ZugzieleMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Zeile: Integer;
  Spalte: Integer;
  Popup_X: Integer;
  Popup_Y: Integer;

begin
  //prüfen ob die rechte Maustaste gedrückt wurde
  If not (mbRight = Button) then
    exit;

  //Zeile und Spalte unterhalb der Maus auslesen
  StringGrid_Zugziele.MouseToCell(X, Y, Spalte, Zeile);

  If (Spalte <> -1) and (Zeile <> -1) then
    begin
      //X und Y für das Popup berechnen (entspricht nicht den vorhanden X/Y-Werten,
      //Diese entsprechen nur dem Clientfenster)
      Popup_X := self.Left + PageControl.Left + TabSheet_Zugziele.Left + StringGrid_Zugziele.Left + X;
      Popup_Y := self.Top + PageControl.Top + TabSheet_Zugziele.Top + StringGrid_Zugziele.Top + Y;

      PopupMenu.Popup(Popup_X, Popup_Y);
    end;
end;

Wie man sieht, hab ich eine etwas große Berechnung für "Popup_X" und "Popup_Y".
Zuerst dacht ich ich könne die Variablen "X" und "Y" von OnMouseDown verwenden, aber laut der OH geht das nicht:

Zitat von Delphi7-Hilfe:

X und Y geben die Pixel-Koordinaten des Mauszeigers im Client-Bereich von Sender an.

Gibt es eine andere Möglichkeit das PopupMenu direkt an die Zelle zu positionieren oder muss ich alle Komponenten Lefts und Tops zusammenzählen um auf den richtigen Wert für das PopupMenu zu kommen?