AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen
Thema durchsuchen
Ansicht
Themen-Optionen

TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

Ein Thema von Glados · begonnen am 19. Okt 2017 · letzter Beitrag vom 21. Okt 2017
Antwort Antwort
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.687 Beiträge
 
Delphi 12 Athens
 
#1

AW: TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

  Alt 21. Okt 2017, 12:43
Prüf doch mal die Reihenfolge der Aufrufe im Debugger. Eventuell kommt die WM_INITMENUPOPUP Message ja erst nach dem DoPopup.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Glados
(Gast)

n/a Beiträge
 
#2

AW: TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

  Alt 21. Okt 2017, 13:18
Ich werde mir das gleich mal genau angucken.
Ein Problem habe ich jedenfalls schon gefunden.

Ich verwende ein ListView. Beim Selektieren eines Items wird Prozedur X aufgerufen. Diese prüft gewisse Dinge und passt das dementsprechend eine Toolbar an.

Nun aber das Problem.
das Popup-Event meines PopupMenus ruft diese Prozedur auch auf. In der Reihenfolge kommt aber zuerst ListView > OnSelectItem.
Das heißt hier wird Prozedur X zweimal aufgerufen denn OnSelectItem.

In Prozedur X prüfe ich außerdem, welches PopupMenu gerade geöffnet ist, um unnötigen Code nicht erst auszuführen.
Durch dieses Reihenfolgen-Problem wird X aber zweimal aufgerufen.

Wenn ich in OnSelectItem also herausfinden könnte, ob es einen Rechtsklick der Maus gab bzw ob der Windows-Kontextmenu-Knopf (VK_APPS) gedrückt wurde, könnte ich das verhindern.
Aber wie kommt man in OnSelectItem an diese Infos?
OnMouseDown ist schon zu spät. Das wird erst nach OnSelectItem ausgeführt.

Ich hatte gerade ganz grob das hier im Kopf:
if (GetAsyncKeyState(VK_RBUTTON) = 0) and (GetAsyncKeyState(VK_APPS) = 0) then Was mir auch bei einem anderen Problem helfen würde, wäre wenn ich das MenuClose von PopupMenu überschreiben könnte. Aber das darf man scheinbar nicht.

Geändert von Glados (21. Okt 2017 um 13:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.687 Beiträge
 
Delphi 12 Athens
 
#3

AW: TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

  Alt 21. Okt 2017, 14:19
Keine Ahnung, ob ich das richtig verstanden habe, aber kannst du der Methode X nicht einen zusätzlichen Parameter mitgeben, der das Popupmenü angibt? Im OnSelectItem übergibst du einfach nil und im OnPopup dann (Sender as TPopupMenu). Kannst du dir gesamte Mimik mit WndProc und geerbten Klassen dann nicht einfach sparen?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Glados
(Gast)

n/a Beiträge
 
#4

AW: TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

  Alt 21. Okt 2017, 14:24
Ich denke das würde funktionieren.

Ich dachte nur, dass ich diese Unit mit WndProc usw. später gut verwenden könnte, wenn ich mal wissen muss welches PopupMenu denn offen ist.

Ich habe jetzt mal all den PopupMenu WndProc-Kram gelöscht und mache es mit dem Parameter.
Sollte ich irgendwann in Zukunft meine WndProc-Sache brauchen, kann ich sie ja noch immer nutzen.

Jetzt habe ich nur noch das Problem mit GetKeyState.
DAMIT das sauber bleibt mache ich dafür ein eigenes Thema auf.

Geändert von Glados (21. Okt 2017 um 15:50 Uhr)
  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 05:03 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-2025 by Thomas Breitkreuz