Untermenüs zur Laufzeit erzeugen

[Michael T.]

Hallo,
wer hat ein kleines Beispiel für mich in dem zur Laufzeit in einem Menü ein Untermenü mit einzelnen Menüpunkten erzeugt wird.

Gruß

Michael

P.S.: Einzelne Menüpunkte zur Laufzeit erzeugen ist kein Problem.

[Andreas Täuber]

Ist relativ einfach hier ein Beispiel:
Untermenue := TMenuItem.Create(Self);

Untermenue.Caption :='Untermenü'

Untermenue.OnClick:=Untermenue.click;

Menue.Add(Untermenue);

Gruß
Andrea

[Michael T.]

Ja, klar.
Aber wie kann ich an diesen Eintrag ein weiteres Untermenü ausklappen lassen? So wie im Explorer, Menüpunkt "Neu", die Auswahl der einzelnen Dokumentenarten erfolgt in einem weiteren Untermenü.

Gruß

Michae

[Frank Kneffel]

So wie Andreas es beschrieben hat. Nehmen wir an, daß Du dem Menüpunkt neu ein Untermenü hinzufügen willst:<br>
<pre>
Untermenue := TMenuItem.Create(Self);

Untermenue.Caption :='Untermenü'

Untermenue.OnClick:=Untermenue.click;

Neu.Add(Untermenue);

</pre&gt

[Michael T.]

Aaahhh Jaaaa, ich glaub ich komme der Sache näher.
Vielen Dank.

Gruß

Michae