Halte PopupMenu nach Klick auf Item offen

[Kishmet]

Hi Dolly,

ich gehe davon aus, dass du dir hierfür eine Klasse selber bauen musst. Ich würde vermutlich versuchen mir die TPopupMenu klasse zu vererben und das Close bzw das CloseMenu event nur dann durchzuführen wenn vorher eine Bedingung erfüllt ist. Dann kannst du selbst entscheiden, wann du das schließen möchtest. Eventuell, gibt es das aber auch schon. Schau doch mal ob du hier mehr Infos dazu findest: https://docwiki.embarcadero.com/Libr...upMenu_Methods

LG

---

Ergänzung:
Grade nochmal nachgeschaut, ich glaube ich würde nicht beim Pupupmenu sondern beim Item ansetzen. https://docwiki.embarcadero.com/Libr...MenuItem.Click

Nochmal drüber nachgedacht:
Eventuell schließt auch die windows message das PopupMenu . Dann müsste man sich das anschauen. Ich denke es gibt hier richtig viele Möglichkeiten und Ansatzpunkte. Einen einfachen Weg dahin kenne ich aber leider nicht....

[DieDolly]

Ok klingt kompliziert. Da hört mein fast nicht vorhandenes Wissen schon auf.

[Uwe Raabe]

Das wird in der Tat schwierig. Ich hatte vor einiger Zeit mal eine ähnliche Anforderung, bei dem das Checked mehrerer Einträge direkt nacheinander geändert werden sollte. Wenn dabei das Menü bei jedem Click zu geht ist das schon lästig. Ich konnte aber keine Lösung auf Basis eines Standard Popupmenüs finden, da Windows da sehr tief involviert ist und es meines Wissens sowas nicht unterstützt.

Der wesentliche Teil spielt sich in der Windows-API TrackPopupMenu ab und in der entsprechenden Doku steht:

Zitat:

The window does not receive a WM_COMMAND message from the menu until the function returns.

Es ist aber aktuell so implementiert, dass das Click des MenuItems innerhalb dieser WM_COMMAND Message ausgeführt wird. Da ist das Menü aber schon geschlossen und TrackPopupMenu bereits beendet.

Man müsste also das komplette PopupMenu implementieren um das gewünschte Verhalten zu erreichen. Als Grundlage könnte hier die Implementierung von TPopupActionBar dienen. Das braucht aber auch noch ein gehöriges Mass an Anpassung und somit auch Verständnis dieser Implementierung.

[DieDolly]

Vielleicht als Alternative ein Formular statt eines PopupMenus. Aber das beißt sich wieder wenn es um das einheitliche Erscheinungsbild des Programms unter verschiedenen Versionen von Windows geht.
Oder wirklich so wie ich es oben habe. Sobald es zu ist, wieder öffnen.

[mmw]

Hallo,
das 'JVCaptionpanel' aus den JEDI Komponenten-Pack wäre vielleicht auch noch eine Möglichkeit. (Code ist jetz nur kurz angedeutet.)

Delphi-Quellcode:

procedure Tmainfrm.top_panelMouseMove(Sender: TObject; Shift: TShiftState; X, Y:
    Integer);

begin
 xpos:=x;
 ypos:=y;
end;

Delphi-Quellcode:

procedure Tmainfrm.PopupMenu1Popup(Sender: TObject);

begin

if (xpos+JvCaptionPanel3.Width)>top_panel.ClientWidth then xpos:=(top_panel.ClientWidth-(JvCaptionPanel3.Width+20));

  JvCaptionPanel3.Left:=xpos;
  JvCaptionPanel3.Top:=ypos;
  JvCaptionPanel3.Show;
end;

Gruß