PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

[AlexII]

Hallo,

ich möchte ein PopupMenü mit der linken Maustaste, wenn ich auf ein Image klicke, öffnen. Dafür errechne ich wie folgt die Position des PopupMenüs so das es sich genau in der Mitte des Images öffnet auf das ich klicke:

Delphi-Quellcode:

procedure TForm1.MenuImageClick(Sender: TObject);
begin
  // Menu / Settings Menü aufklappen
  MenuSettingsPopupMenu.Popup(Form1.Left + Form1.MenuImage.Left + (Form1.MenuImage.Width/2), Form1.Top + Form1.MenuImage.Top + (Form1.MenuImage.Height/2));
end;

Aber irgendwie wird das PopupMenü trotzdem weit links geöffnet. Ich verstehe nicht wieso... wer kann mir da weiter helfen?

Danke!

[Sir Rufo]

Warum benutzt du immer dieses

Delphi-Quellcode:

Form1

?

Das kannst du weglassen oder durch

Delphi-Quellcode:

Self

ersetzen und wird dann immer richtig sein.

Ach ja, lass doch mal das Left und Top von der Form aus der Berechnung weg.

[AlexII]

Meinst Du etwa so?

Delphi-Quellcode:

MenuSettingsPopupMenu.Popup(Self.MenuImage.Left + (Self.MenuImage.Width/2), Self.MenuImage.Top + (Self.MenuImage.Height/2));

Bringt auch nichts, das PopupMenü richtet sich trotzdem an die Bildschirmrände...

[himitsu]

Ist dir schonmal aufgefallen, daß eine Form meistens einen Rahmen hat?
Den solltest du auch mit einrechnen.

> Darum gibt es z.B. zum Width auch noch das ClientWidth




PS: Self.ClientToScreen

[AlexII]

Zitat:

Zitat von himitsu (Beitrag 1238690)

Ist dir schonmal aufgefallen, daß eine Form meistens einen Rahmen hat?
Den solltest du auch mit einrechnen.

> Darum gibt es z.B. zum Width auch noch das ClientWidth

Hat den ClientWidth eine Breite? Wie komme ich auf sie?

[Sir Rufo]

Zitat:

Zitat von AlexII (Beitrag 1238692)

Zitat:

Zitat von himitsu (Beitrag 1238690)

Ist dir schonmal aufgefallen, daß eine Form meistens einen Rahmen hat?
Den solltest du auch mit einrechnen.

> Darum gibt es z.B. zum Width auch noch das ClientWidth

Hat den ClientWidth eine Breite? Wie komme ich auf sie?

:shock: nee, oder?

Wenn du einen Begriff nicht verstehst, dann bemühe doch die Dokumentation, oder versuche es mal mit einem Übersetzer ...

(das tut echt schon weh - vor allem, weil dir Width anscheinend etwas zu sagen scheint)

[SirThornberry]

Schaut dir mal die Methode ScreenToClient an. Also zum Beispiel YourImage.ScreenToClient(0,0) gibt dir die Bildschirmkoordinaten der linken oberen Ecke deines Images zurück.

[himitsu]

siehe #4

Aber du meinst bestimmt auch ClientToScreen.
Bei ScreenToClient wären die Koordinaten negativ, da es die relativen Koordinaten auf zum Desktop wären, aus Sicht der Komponente.

[AlexII]

Danke Dir!

Verstehe ich soweit, aber wie kann ich die zwei Methode miteinander verknüpfen, das kapiere ich nicht... :gruebel:
Ich habe dann für x und y je zwei Koordinaten... :gruebel:

Delphi-Quellcode:

MenuSettingsPopupMenu.Popup(x, y);

YourImage.ScreenToClient(0,0);

[jaenicke]

ScreenToClient bekommt einen TPoint als Parameter, sprich beide Koordinatenwerte auf einmal. Also musst du mit Point(x, y) einen TPoint erstellen und bekommst bei ClientToScreen auch einen solchen zurück. In diesem Rückgabewert stehen die Koordinaten, die du an Popup übergeben musst, denn die beziehen sich auf den Bildschirm, nicht auf dein Fenster.