TPopupMenu Popup überschreiben / DoPopup wird nie aufgerufen

[Uwe Raabe]

Nur so 'ne Idee: Du könntest auch in der WndProc auf WM_INITMENUPOPUP (Sent when a drop-down menu or submenu is about to become active.) reagieren und das aktuelle PopupMenu anhand des Handles suchen. Dann sparst du dir die Ableitung von TPopupMenu ganz:

Delphi-Quellcode:

    
 case message.msg of
   WM_INITMENUPOPUP: 
   begin
     for I := 0 to Count - 1 do begin
       if TPopupMenu(Items[I]).Handle = TWMInitMenuPopup(Message).MenuPopup then begin
         { sollte nie erreicht werden, wenn ein SubMenu geöffnet wird }
         PopupMenu := TPopupMenu(Items[I]);
         Break;
       end;
     end;
   end;
   WM_ENTERMENULOOP:
   begin
     MenuLoop := True; // Menu sichtbar
   end;
   WM_EXITMENULOOP:
   begin
     MenuLoop := False; // Menu nicht mehr sichtbar
     PopupMenu := nil;
   end;
 end;

[Glados]

Das ist natürlich die elegantere Lösung.

for I := 0 to Count - 1 do Warum genau denn bis Count-1? Geht man hier einfach auf verdacht bis in einen sehr hohen Bereich?

[Uwe Raabe]

Zitat von Glados:

for I := 0 to Count - 1 do Warum genau denn bis Count-1? Geht man hier einfach auf verdacht bis in einen sehr hohen Bereich?

In PopupList registriert sich jede TPopupMenu-Instanz beim Create und meldet sich im Destroy wieder ab. Die aktuelle Anzahl der Einträge einer Liste steht in Count und das erste Element hat den Index 0. Deswegen durchläuft for I := 0 to Count - 1 do die gesamte Liste. Da wir in der Message lediglich das Handle des Menüs bekommen, suchen wir die dazu passende Instanz in der For-Schleife. Sobald diese gefunden ist, bricht das Break die Schleife ab.

[Glados]

Danke für die Erklärung!

[Glados]

Es gibt leider ein neues komisches Problem

Wenn man das Popupmenu wie folgt sucht sollte es eigentlich der Variablen zugewiesen werden

Delphi-Quellcode:

WM_INITMENUPOPUP: // PopupMenu anhand des Handles finden
   begin
    for i := 0 to Count - 1 do
     begin
      if TPopupMenu(Items[i]).Handle = TWMInitMenuPopup(Message).MenuPopup then
       begin
        PopupMenu := TPopupMenu(Items[i]);
        Break;
       end;
     end;
   end;

Wenn ich in einer anderen Unit nun etwas teste, bekomme ich 'X' nie zu sehen, obwohl die Unit korrekt in den uses steht. Stattdessen sehen ich "nil":

Delphi-Quellcode:

// Steht im OnPopup meines PopupMenus

if TPopupListEx(PopupList).PopupMenu = nil then
 ShowMessage('nil')
else if TPopupListEx(PopupList).PopupMenu = FrmMain.PopupMenu2 then
 showmessage('X');

Selbst mein alter Code mit procedure DoPopup(Sender: TObject); override; funktioniert jetzt nicht mehr und DoPopup wird nie aufgerufen. Das ist mehr als seltsam. Mal funktioniert das, mal nicht, obwohl ich doch nur wissen möchte, welches das aktuell geöffnete PopupMenu ist ...

Noch seltamer: jetzt bekomme ich nicht mal mehr diese Showmessage angezeigt

Delphi-Quellcode:

procedure TForm1.PopupMenu2Popup(Sender: TObject);
begin
 showmessage('Popup');
 ...
end;

[Uwe Raabe]

Prüf doch mal die Reihenfolge der Aufrufe im Debugger. Eventuell kommt die WM_INITMENUPOPUP Message ja erst nach dem DoPopup.

[Glados]

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.

[Uwe Raabe]

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?

[Glados]

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.