Dificuldades com Componenete TMainMenu
26/08/2003
0
Tenho esta funcção que Insere num Componente TTreeView todos os caption dos Itens de Menu.
procedure TForm1.Insere_TreeView(TreeView : TTreeView; Menu : TMainMenu; ItemMenu : TMenu);
var
I , J, Posicao : Integer;
ItemPrincipal, ItemSubItem : TMenuItem;
Nodulo1, Nodulo2 : TTreeNode;
Titulo1, Titulo2 : string;
begin
trvPrincipal.Items.Clear;
Nodulo1 := nil;
Nodulo1 := trvPrincipal.Items.Add(Nodulo1, ´Testando´);
for I := 0 to Menu.Items.Count -1 do
begin
ItemPrincipal := ItemMenu.Items[I];
Titulo1 := ItemPrincipal.Caption;
Posicao := Pos(´&´, Titulo1);
if Posicao <> 0 then
begin
Delete(Titulo1, Posicao, 1);
end;
Nodulo2 := trvPrincipal.Items.AddChild(Nodulo1, Titulo1);
for J := 0 to ItemPrincipal.Count - 1 do
begin
ItemSubItem := ItemPrincipal.Items[J];
Titulo2 := ItemSubItem.Caption;
Posicao := Pos(´&´, Titulo2);
if Posicao <> 0 then
begin
Delete(Titulo2, Posicao, 1);
end;
if ItemSubItem.Caption <> ´-´ then
begin
trvPrincipal.Items.AddChild(Nodulo2, Titulo2)
end;
end;
end;
end;
Porém não consigo inserir no TreeView os os Caption dos SubMenus, como fazer isso?
Obrigado.
procedure TForm1.Insere_TreeView(TreeView : TTreeView; Menu : TMainMenu; ItemMenu : TMenu);
var
I , J, Posicao : Integer;
ItemPrincipal, ItemSubItem : TMenuItem;
Nodulo1, Nodulo2 : TTreeNode;
Titulo1, Titulo2 : string;
begin
trvPrincipal.Items.Clear;
Nodulo1 := nil;
Nodulo1 := trvPrincipal.Items.Add(Nodulo1, ´Testando´);
for I := 0 to Menu.Items.Count -1 do
begin
ItemPrincipal := ItemMenu.Items[I];
Titulo1 := ItemPrincipal.Caption;
Posicao := Pos(´&´, Titulo1);
if Posicao <> 0 then
begin
Delete(Titulo1, Posicao, 1);
end;
Nodulo2 := trvPrincipal.Items.AddChild(Nodulo1, Titulo1);
for J := 0 to ItemPrincipal.Count - 1 do
begin
ItemSubItem := ItemPrincipal.Items[J];
Titulo2 := ItemSubItem.Caption;
Posicao := Pos(´&´, Titulo2);
if Posicao <> 0 then
begin
Delete(Titulo2, Posicao, 1);
end;
if ItemSubItem.Caption <> ´-´ then
begin
trvPrincipal.Items.AddChild(Nodulo2, Titulo2)
end;
end;
end;
end;
Porém não consigo inserir no TreeView os os Caption dos SubMenus, como fazer isso?
Obrigado.
Fabio Colli
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)