PopupMenu SubMenu öffnen

[EarlyBird]

Es bleibt einfach das "Hauptmenü" offen.
sonst passiert nichts, nicht mal ein Error

Delphi-Quellcode:

//ein einfacher Test
   PopUpM1.Popup(PopUpM1.PopupPoint.X,PopUpM1.PopupPoint.Y);
   TPopupMenu(TMenuItem(Sender)).Popup(PopUpM1.PopupPoint.X + 20,PopUpM1.PopupPoint.Y + 20);

[Helmi]

das Hauptmenü mein ich ja

[EarlyBird]

Sorry da hab ich wohl nicht aufmerksam genug gelesen.
Aber das Hauptmenü bekomme ich ja auch schon ordentlich angezeigt.
Ich dachte jetzt daran aus dem Submenü ein zweites Hauptmenü zu machen und dann an der richtigen Position einzublenden.
Alles im Hauptmenü anzuzeigen ist leider keine Option für mich

[Helmi]

vielleicht hilft dir das weiter (was ich jetzt nicht ganz glaube):

http://www.s170867368.online.de/delphi/menpop.php

[EarlyBird]

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);

[Helmi]

was passiert, wenn du
PopUpM1.Popup(PopUpM1.PopupPoint.X,PopUpM1.PopupPoint.Y); mal weg lässt?

[EarlyBird]

Dann geht das Submenü auf aber das Hauptmenü wird nicht angezeigt.
Das ganze funktioniert dann auch nur einmal.
Beim nächsten Klick ist dann auch das Submenü weg.

Und ich dachte ich mach das mal eben
das muss doch auch irgendwie funktionieren