Leider hilft es nicht.
Schade.
Ich bekomme zwar das SubMenü angezeigt aber dafür wird das Hauptmenü ausgeblendet.
Außerdem funktioniert auch das erst wenn ich das zweite mal auf den Submenüeintrag klicke
Delphi-Quellcode:
//die Position stimmt so natürlich auch noch nicht
PopUpM1.Popup(PopUpM1.PopupPoint.X,PopUpM1.PopupPoint.Y);
TrackPopupMenu(TMenuItem(Sender).Parent.Handle, TPM_LEFTBUTTON or
TPM_LEFTALIGN, PopUpM1.PopupPoint.X + 50,PopUpM1.PopupPoint.Y + 40, 0, self.Handle, Nil);