Dynamisch erstelltes PopUpMenu Unter- Untereinträge hinzufügen / löschen

[Metschu]

Hallo zusammen!

Ich stehe irgendwie auf dem Schlauch. Ich versuche bei einem Dynamisch erstelltem PopUpMenu die Unter- Untereinträge hinzuzufügen oder zu löschen.
Die Untereinträge erstelle ich wie folgt:

Delphi-Quellcode:

PopupMenu.Items.Items[popUpMenu.Items.IndexOf(Menu1)].Add(NewItem('Untermenu1',0,False,True,Aktion,0,'');

Über PopUp.items.FindItem('Untermenu1') sollte ich ja den Index des eben erstellten Untermenüs finden, nur bekomme ich da immer "-1" zurück.

Ich schätze mal das das Unter-Untermenü nach folgendem Schema erstellt werden muss:

Delphi-Quellcode:

PopUpMenu.items.items[Itemindex von Menu1].items[Itemindex von Untermenu1].Add(...)

Kann mir einer mal nen Tip geben, wie ich da weiter komme?

Vielen Dank schonmal!

[jaenicke]

Merke dir einfach die erstellten Menüeinträge, z.B. in einem Dictionary oder einer Liste, dann stellt sich das Problem diese wiederzufinden gar nicht...
Mit einem Dictionary kannst du z.B. gleich einen Bezug zur dahinterliegenden Datenstruktur herstellen, aus der du die Daten für die Einträge ausliest.

So wie du es versuchst ist es ziemlich unübersichtlich.

[himitsu]

Siehst du, genau deßhalb verwendet man einfach keine Texte aus der GUI,
Text, Caption und Co. kann sich ändern und schon findet man nix mehr.
Auch macht es sich blöde, wenn man die Anwendung irgendwann mal lokaliseren möchte.

Hast du mal das Menü über die Tastatur geöffnet oder ist dir bei Menüs/Kontextmenüs mal aufgefallen, daß dort Buchstaben unterstichen sind? (seit XP/Vista werden diese zwar nicht mehr standardmäßig unterstichen, bzw. es wird nicht mehr angezeigt, aber sie sind dennoch da)

Tja, die Delphi-Menüs belegen automatisch Buchstaben, wenn du vergessen hast selber diese vorzugeben. :roll:
Und schwups, schon stimmt der Text nicht mehr überein ... also selber Schuld, wenn du solche Texte so verwendest. :tongue:

[Uwe Raabe]

Zitat:

Zitat von Metschu (Beitrag 1148175)

Über PopUp.items.FindItem('Untermenu1') sollte ich ja den Index des eben erstellten Untermenüs finden, nur bekomme ich da immer "-1" zurück.

Das wundert mich nicht!

Delphi-Quellcode:

PopupMenu.Items.Items[popUpMenu.Items.IndexOf(Menu1)].FindItem('Untermenu1')

sollte da mehr Erfolg haben.

Das Erstellen geht übrigens einfacher:

Delphi-Quellcode:

Menu1.Add(NewItem('Untermenu1',0,False,True,Aktion,0,''));

Wobei sich die Suche dann auch auf

Delphi-Quellcode:

Menu1.FindItem('Untermenu1');

beschränken kann.

[Metschu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1148180)

Delphi-Quellcode:

Menu1.Add(NewItem('Untermenu1',0,False,True,Aktion,0,''));

Bei genauerer Betrachtung eigentlich Logisch :wall:
Danke für den Schubs in die Richtige Richtung...:thumb: