AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi PopupMenü mit linker Maustaste an richtiger Stelle öffnen?
Thema durchsuchen
Ansicht
Themen-Optionen

PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

Ein Thema von AlexII · begonnen am 5. Dez 2013 · letzter Beitrag vom 6. Dez 2013
Antwort Antwort
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 19:25
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!
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 19:35
Warum benutzt du immer dieses Form1 ?

Das kannst du weglassen oder durch Self ersetzen und wird dann immer richtig sein.

Ach ja, lass doch mal das Left und Top von der Form aus der Berechnung weg.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#3

AW: PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 19:41
Meinst Du etwa so?

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...
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.314 Beiträge
 
Delphi 12 Athens
 
#4

AW: PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 19:53
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.Delphi-Referenz durchsuchenClientToScreen
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#5

AW: PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 20:15
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?
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

  Alt 5. Dez 2013, 21:44
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?
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)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz