Gibt es eine Möglichkeit ein PopupMenu offen zu halten, selbst nachdem auf ein TMenuItem geklickt wurde?
Ich erzeuge die TMenuItems selber und weise ein OnClick-Event zu. In diesem Event habe ich das hier mal ausprobiert.
Delphi-Quellcode:
...
handle click ...
Pos := TPopupMenu((Sender
as TMenuItem).GetParentMenu).PopupPoint;
TPopupMenu((Sender
as TMenuItem).GetParentMenu).PopUp(Pos.X, Pos.Y);
Nach einem Klick auf ein TMenuItem wird das PopupMenu geschlossen und danach sofort wieder geöffnet. Das sieht man leider und es flackert kurz.
Geht das auch anders, ohne dass das PopupMenu zu geht?