Ich hab jetzt folgendes mal gemacht:
Delphi-Quellcode:
AppItem := MainMenu.itemAtIndex(0);
if AppItem.hassubmenu then
begin
Services := TNSMenuItem.Create;
Services := TNSMenuItem.Wrap(Services.initWithTitle(NSSTR('Services'),nil,NSSTR('')));
Services.setSubmenu(NSApp.servicesMenu);
AppItem.submenu.insertItem(Services,2);
Services.release;
end;
Jetzt fügt er zwar in mein Menü an der 2ten Stelle das Services-Item ein, aber das hat kein Submenu. Hat jemand eine Idee?
