PopupMenu SubMenu öffnen

[EarlyBird]

Hallo,
ich möchte ein nach einem Klick auf einen Menüpunkt im PopupMenu das Menü an der gleichen Stelle wieder öffnen.
Das mache ich im onclick Ereignis des MenüItems mit :

Delphi-Quellcode:

PopUpM1.Popup(PopUpM1.PopupPoint.X,PopUpM1.PopupPoint.Y);

das klappt so weit auch prima mit dem PopUpMenu selbst.
Ich möchte aber auch das Submenü öffnen wenn das geklickte Item in einem Submenü war.
Könnt Ihr mir einen Tipp dazu geben wie ich das lösen kann.

Thanks

[EarlyBird]

hat keiner eine Idee?

[EarlyBird]

ich kann einfach nicht warten :oops:

1. [] dumme Frage
2. [] falsches Forum
3. [] wurde schon X mal behandelt (nicht schon wieder)
4. [] unlösbare Aufgabe
5. [] streng Dich selber mehr an
6. [] Antwort:__________________________________________ ____

Ich komm einfach nicht selbst drauf :?
Hat denn Niemand einen Tipp?

[Helmi]

Hallo,

auch wenn ich dir nicht wirklich weiterhelfen kann, aber ich glaube das geht nicht.
Ich habe jetzt einiges probiert, mit SendMessage etc., aber man kann nur das PopUp
selbst anzeigen lassen, aber keinen SubItem.

Die Frage ist aber auch, warum das überhaupt wollen?
Mit der Maus musst du ja sowieso ins PopUp klicken

[EarlyBird]

Hallo Helmi,
danke für Deine Antwort.
Ich hab auch schon so viel probiert, aber es geht nicht.
Ich dachte "einer" muss es doch schon mal hinbekommen haben.

Ich möchte das Verhalten so implementieren das bei gedrückter Strg Taste das Menü nach einem Klick offen bleibt.
Ich füge damit Werte in einer Tabelle ein.
Und manchmal ist es halt erforderlich mehr wie einen Wert einzufügen.
Dann ist es lästig das Menü immer neu aufzurufen.

Vielleicht findet sich ja noch eine Lösung

[Helmi]

das einzige was mir dabei einfällt, wäre, die SubItems aufzulösen und sie im "normalen" PopUp einzubauen und dann mitels PopUpMenu.PopUp(x,y) anzeigen zu lassen

[EarlyBird]

hab ich auch schon dran gedacht.
Hat aber auch nicht geklappt:cry:

[Helmi]

Zitat:

Zitat von EarlyBird (Beitrag 1227768)

hab ich auch schon dran gedacht.
Hat aber auch nicht geklappt:cry:

Und was nicht?

[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