Fórum Clicar no treeview e abrir um item relacionado no menu #228030

TMeNuItem(Node.Data).Click(Nil);

//  z é uma variavel púlica
z:pointer;

procedure TForm1.AualizaTree(tv: TTreeView; fMenuPrinc: TMainMenu;
  fMenu: TMenu);
var i,j,posic:integer;
    a,b: string;
    mI,mS: TMenuItem;
    n,tn: TTreeNode;
begin
  tv.Items.Clear;
  tn := nil;
  tn := tv.Items.AddObjectFirst(tn,´Menus liberados´,z);
  for i := 0 to fMenuPrinc.Items.Count - 1 do begin
    mI := fMenu.Items[i];
    a := mI.Caption;
    posic := pos(´&´,a);
    if posic > 0 then
      Delete(a,posic,1);
    n := tv.Items.AddObject(tn,a,z);
    for j := 0 to mI.Count - 1 do begin
      mS := mI.Items[j];
      b := mS.Caption;
      posic := pos(´&´,b);
      if posic > 0 then
        Delete(b,posic,1);
      if b <> ´-´ then
        tv.Items.AddObject(n,b,z)
      end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 AtualizaTree(treeview1,form1.mmenu1,form1.Menu);
end;

procedure TForm1.sobre1Click(Sender: TObject);
begin
  showmessage(´teste treeview e mainmenu´);
end;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;   var AllowChange: Boolean);
begin
  z:=tmenuitem(node.Data);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Tmenuitem(z).Click;
end;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean); 
begin 
if assigened(node.Data) then 
tmenuitem(node.Data).OnClick; 
end; 

procedure TForm1.AtualizaTree(tv: TTreeView; fMenuPrinc: TMainMenu;
  fMenu: TMenu);
 var i,j,posic:integer;
    a,b: string;
    mI,mS: TMenuItem;
    n,tn: TTreeNode;
begin
  tv.Items.Clear;
  i:=0;
  tn := nil;
//  tn := tv.Items.AddChildObjectFirst(tn,´Menus liberados´,fMenu.Items[i]);
  for i := 0 to fMenuPrinc.Items.Count - 1 do begin
    mI := fMenu.Items[i];
    a := mI.Caption;
    posic := pos(´&´,a);
    if posic > 0 then
      Delete(a,posic,1);
    n := tv.Items.AddChildObject(tn,a,fmenu.items[i]);
    for j := 0 to mI.Count - 1 do begin
      mS := mI.Items[j];
      b := mS.Caption;
      posic := pos(´&´,b);
      if posic > 0 then
        Delete(b,posic,1);
      if b <> ´-´ then
        tv.Items.AddChildObject(n,b,fmenu.items[i]);
      end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AtualizaTree(treeview1,form1.mainmenu1,form1.Menu);
end;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
if assigned(node.Data) then
tmenuitem(node.Data).Click;
end;

procedure TForm1.web1Click(Sender: TObject);
begin
  showmessage(´vc clicou em web ´);
end;

procedure TForm1.Colar1Click(Sender: TObject);
begin
  showmessage(´vc clicou em colar´);
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
  showmessage(´vc clicou em abrir´);
end;

procedure TForm1.Fechar1Click(Sender: TObject);
begin
  showmessage(´vc clicou em fechar´);
end;

end.