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