1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure Tstructure.addSubmenu;
var
  menuCap : String;
  nodeCount, I : Integer;
begin
  //Nur ausführen wenn das Submenü auch einen Namen bekommt
  if frm_main.e_caption.Text <> '' then begin
    //Wurde ein Hauptmenü ausgewählt?
    if frm_main.rg_menu.ItemIndex = -1 then
      MessageDlg('Sie müssen dazu das zugehörige Hauptmenü auswählen!',
                  mtInformation, [mbOK], 0)
    else begin
      //Wurden schon 9 Submenüs angelegt?
      if frm_main.rg_submenu.Items.Count < 9 then begin
        //Submenü in der RadioGroup anlegen
        frm_main.rg_submenu.Items.Add(frm_main.e_caption.Text);
        //TreeView Child anlegen
        //Gehört zu welchem Parent?
        menuCap := frm_main.rg_menu.Items.Strings[frm_main.rg_menu.ItemIndex];
        nodeCount := frm_main.tv_cmdmenu.Items.Count;
        for I := 0 to nodeCount - 1 do begin
          if frm_main.tv_cmdmenu.Items.Item[I].Text = menuCap then
            with frm_main.tv_cmdmenu do begin
              Items.AddChild(Items.Item[I], frm_main.e_caption.Text);
            end;
        end;
      end
      else
        MessageDlg('CS erlaubt maximal 9 Untermenüs!', mtError, [mbOk], 0);
    end;
  end
  else
    MessageDlg('Das Menü ohne Namen....o.O ich krieg Angst!', mtError, [mbOk], 0);
end;