TMS TAdvMainMenu

[arnof]

Delphi-Quellcode:

   if menu.Items.count>0 then begin
    MenuI:=menu.Items[0]; // Hauptmenu
    TB_Menue.Caption:=MenuI.Caption;
    //
    if menu.Items[0].Count>0 then begin
     // Menüpunkte
     for i:=0 to menu.Items[0].Count-1 do begin
      Menu.Items[i]
....

     end;
    end;
   end;
  end;
  //