Hierarquia de Menu em TreeView
Olá pessoal! Queria tentar passar para um TreeView os items obedecendo exatamente a hierarquia do MainMenu do meu form principal. Alguma idéia?
Até!
Até!
Delphi32
Curtidas 0
Respostas
Davicarrano
17/10/2005
utilizando uma função recursiva da pra fazer beleza...
Procedure TForm1.TreeView_Menu;
var i,Z:Integer;
No1:TTreeNode;
ItemM:TMenuItem;
procedure SubNivel(Opcao: TMenuItem;No:TTreeNode);
var
X: Integer;
NoFilho:TTreeNode;
begin
NoFilho:=Items.AddChild(No,Opcao.Caption);
for X:=0 to Opcao.Count-1 do
SubNivel(Opcao.Items[X],NoFilho);
end;
begin
For i:= 0 to Menu.Items.Count - 1 do
begin
ItemM:=Menu.items[i];
No1:= Items.Add(nil,ItemM.Caption);
for Z:=0 to ItemM.Count-1 do
SubNivel(ItemM.Items[z],No1);
end;
end;
mais ou menos assim... testa ai e vê se vai dar certinho....
Procedure TForm1.TreeView_Menu;
var i,Z:Integer;
No1:TTreeNode;
ItemM:TMenuItem;
procedure SubNivel(Opcao: TMenuItem;No:TTreeNode);
var
X: Integer;
NoFilho:TTreeNode;
begin
NoFilho:=Items.AddChild(No,Opcao.Caption);
for X:=0 to Opcao.Count-1 do
SubNivel(Opcao.Items[X],NoFilho);
end;
begin
For i:= 0 to Menu.Items.Count - 1 do
begin
ItemM:=Menu.items[i];
No1:= Items.Add(nil,ItemM.Caption);
for Z:=0 to ItemM.Count-1 do
SubNivel(ItemM.Items[z],No1);
end;
end;
mais ou menos assim... testa ai e vê se vai dar certinho....
GOSTEI 0
Delphi32
17/10/2005
valeu! funcionou blz!
thx!
thx!
GOSTEI 0