將MainMenu解到TreeView的正確位置

最新推荐文章于 2023-03-20 23:16:20 发布

wangyunyong0905

最新推荐文章于 2023-03-20 23:16:20 发布

阅读量590

点赞数

分类专栏： DELPHI 文章标签： integer

本文链接：https://blog.csdn.net/wangyunyong0905/article/details/1816130

版权

DELPHI 专栏收录该内容

74 篇文章 0 订阅

订阅专栏

var MTN : array of TTreeNode;
j:integer;
procedure TForm1.MainmenuToTreeView;
procedure MenuAct(m :TMainMenu);
    procedure DoRecursive(t :TMenuItem);
    var ii : integer;
    begin
     for ii := 0 to t.Count-1 do
     begin
        if ii = 0 then
        begin
        MTN[j+1] := TreeView1.Items.AddChild(MTN[j],t.Items[ii].Caption);
        end else
        MTN[j+1] := TreeView1.Items.Add(MTN[j],t.Items[ii].Caption);
        inc(j);
        DoRecursive(t.Items[ii]);
     end;
    end;
var i:Integer;
begin
    if m.Items.Count > 0 then
    for i := 0 to M.Items.Count-1 do
    begin
     MTN[j+1] := TreeView1.Items.Add(MTN[0],m.Items.Items[i].Caption);
     inc(j);
     DoRecursive(m.Items[i]);
    end;
end;

begin
TreeView1.Items.Clear;
setlength(MTN,50);
J := 0;
MenuAct(MainMenu1);
end;