Dynamisch erstelle Untereinträge in Menüs

[BenjaminHelbig]

Hi Leute,

ich hab folgendes Problem: Ich hab auf meiner Form ein MainMenu. Da hab ich den Punkt Fenster angelegt. Unter Fenster habe ich den Punkt Programme in welchem ich ein SubMenu gemacht hab.
Da möchte ich zur Laufzeit Einträge hinzufügen, dass mache ich mit folgendem Code:

MyMenuItem := TMenuItem.Create(Self);
MyMenuItem.Caption := 'blabla';

Das Problem ist dass er mir keine Einträge erzeugt. Aber der Code sollte doch richtig sein, oder?

Dank Euch,

Grüße Ben

[MathiasSimmack]

Na ja, du musst den neuen Menüeintrag noch einhängen. Ich mach´s beim Erzeugen immer so, dass ich den übergeordneten Eintrag als Parent nehme. Angenommen dein Menüeintrag "Programme" wäre dieser Parent und heißt im Objektinspektor "Programme1":

Delphi-Quellcode:

MyMenuItem := TMenuItem.Create(Programme1);

Wenn du alle gewünschten Eigenschaften zugeordnet hast, dann rein damit ins Menü:

Delphi-Quellcode:

Programme1.Add(MyMenuItem);

Voilà.

[BenjaminHelbig]

Vielen Dank, jetzt gehts.