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?