Cita:
Empezado por MITOPE
...para lo cual quiero usar el TreeView, para mostrar las opciones del menu principal del programa.
|
Coloca en tu form un MainMenú y un TreeView, opcionalmnte si quieres imágenes en los elementos coloca un ImageList con las imágenes y engánchalo a ambos componentes (para que las mismas imágenes que tienes en los elementos del menú te aparezcan en el Tree) y coloca un Tbutton con el siguiente código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
procedure VerificaMenu(Menu: TMenuItem; Nod: TTreeNode);
Var
i: Integer;
Nodo: TTreeNode;
Begin
for i:= 0 To (Menu.Count - 1) Do Begin
If Not(Menu.Parent Is TMenuItem) then begin
Nodo:= TreeView1.Items.Add(Nil, Menu.Items[i].Caption);
Nodo.ImageIndex := Menu.Items[i].ImageIndex;
End
Else begin
Nodo:= TreeView1.Items.AddChild(Nod, Menu.Items[i].Caption);
Nodo.ImageIndex := Menu.Items[i].ImageIndex;
end;
If Menu.Items[i].Count > 0 Then begin
VerificaMenu(Menu.Items[i], Nodo);
end;
End;
End;
begin
VerificaMenu(MainMenu1.Items, Nil);
end;
Un saludo.