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:

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?

[matashen]

Hallo

Also meine Hilfe wirft mir da was praktisches zurück...

Zitat:

Die Methode CellRect gibt die Bildschirmkoordinaten einer Zelle im Gitter zurück.

Delphi-Quellcode:

function CellRect(ACol, ARow: Longint): TRect;

Gruß Matthias

[Helmi]

Zitat:

Zitat von matashen

Zitat:

Die Methode CellRect gibt die Bildschirmkoordinaten einer Zelle im Gitter zurück.

Delphi-Quellcode:

function CellRect(ACol, ARow: Longint): TRect;

Hallo,

leider gibt CellRect nicht die Position vom Bildschirmrand aus an.

Ich habs so ausgelesen und X/Y für das PopupMenu berechnet:

Delphi-Quellcode:

Rect := StringGrid_Zugziele.CellRect(Spalte, Zeile);

Popup_X := Rect.Right - Rect.Left;
Popup_Y := Rect.Bottom - Rect.Top;

Nur dann wird das Popup-Menu wieder in der linken oberen Ecke meines Bildschirms angezeigt.

[himitsu]

evtl.

Delphi-Quellcode:

Rect := StringGrid_Zugziele.CellRect(Spalte, Zeile);
Rect.TopLeft := CenterPoint(Rect);  // gibt die Mitte der Zelle zurück
Rect.TopLeft := StringGrid_Zugziele.ClientToScreen(Rect.TopLeft);
Popup_X := Rect.Left;
Popup_Y := Rect.Top;

[Helmi]

Zitat:

Zitat von himitsu

evtl.

Delphi-Quellcode:

Rect := StringGrid_Zugziele.CellRect(Spalte, Zeile);
Rect.TopLeft := CenterPoint(Rect);  // gibt die Mitte der Zelle zurück
Rect.TopLeft := StringGrid_Zugziele.ClientToScreen(Rect.TopLeft);
Popup_X := Rect.Left;
Popup_Y := Rect.Top;

Ja genau so was hab ich gesucht!
Vielen Dank!! :-D