PopUpMenu: Komp. erstellen und dieser ein SubMenu erzeugen

[BluesKid]

Moin moin

mal ein kurzes Beispiel:

Delphi-Quellcode:

.
.

var myMenu : TPopupmenu;
    item1, item2 :  TMenuItem;

.
.

begin

.
.

  myMenu := TPopupmenu.create(self);
  item1 :=  TMenuItem.create(self);
  item2 := TMenuItem.create(self);

.
.

  item2.caption := 'Blatt';

  item1.Caption := 'Wurzel';
  item1.Add(item2);

  myMenu.Items.Add(item1);

.
.

end;

Dadurch wird ein Menü mit dem Eintrag "Wurzel" erstellt, der einen Untereintrag "Blatt" hat.



Hoffe Dir geholfen zu haben..


schönen Gruß
Sam