请句一个mainmenu 菜单内容转到 Treeview中的问题？？？

Question

我有一个mainmenu的主菜单,我需要将菜单的所有内容转到一个Treeview中显示  ，不知如何写代码实现？

Answer 1

给你一个
//////////////////////////////遍历菜单///////////////////////////////
procedure  TForm1.AddAMenuItem(AMenuItem: TMenuItem;aNode:TTreeNode);
var
  i,j,k:Integer;
  s:String;
  curNode:TTreeNode;
begin
  curNode := nil;
  s:=AMenuItem.Caption; //取菜单项的标题
  k:=Pos('&',s);
  if k > 0 then
    Delete(s,k,1); //删除菜单项标题中的“&”符
  if s <> '-' then //如果是菜单分隔符“-”就不处理
    curNode := TreeView1.Items.AddChild(aNode,s);
  J:=AMenuItem.Count;
  if J > 0 then //有子菜单，就遍历
  for i := 0 to j - 1 do
  begin
    AddAMenuItem(AMenuItem.Items[i],curNode);
  end;
end;
----------------------------------------------------------------
             花自飘零水自流，一种相思，两处闲愁。
               此情无计可消除，才下眉头，又上心头。
----------------------------------------------------------------

Answer 2

精点,但我又如何从treeview得到菜单项?