TMS TAdvMainMenu

[Walter Landwehr]

Hm, so richtig weitergekommen bin ich noch nicht.

Hier mal mein Ansatz

Delphi-Quellcode:

procedure TBenutzerverwaltungFrm.FormCreate(Sender: TObject);
     var I, J: Integer;
       Node: TTreeNode;
begin

  Node := AdvCheckTreeView1.Items.Add(nil, 'AlleRechte'); // Oberster Eintrag
  Node.ImageIndex := 0;
    if frmMain.Menue.Items.count > 0 then      
    begin
      for I := 0 to frmMain.Menue.Items.Count - 1 do
      begin
        If I = 0 then
          Node := AdvCheckTreeView1.Items.AddChild(Node, copy(frmMain.Menue.Items[I].Caption,2,35));
          if frmMain.Menue.Items[I].count > 0 then                    // bis hier OK
           for J := 0 to frmMain.Menue.Items[I].Count - 1 do
           begin
             If J = 0 then
               Node := AdvCheckTreeView1.Items.AddChild(Node, frmMain.Menue.Items[J].Caption)  <-- Hier sollte das erste Untermenü vom ersten Hauptmenü gelesen werden list aber das erste Hauptmenü
             else
               Node := AdvCheckTreeView1.Items.Add(Node, frmMain.Menue.Items[J].Caption)
           end
          else
            Node := AdvCheckTreeView1.Items.Add(Node, copy(frmMain.Menue.Items[I].Caption,2,35))
      end;
end;

Ich schaffe es einfach nicht die Untermenüs auszulesen.

Kann mir jemand helfen.

Danke im voraus.