| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как по существующему меню приложения построить дерево

Mitrofan ©   (2004-06-18 11:58:00) 

Есть приложение. У него есть меню, причем стоение этого меню не известно (сколько и где вложенности не известно). Как построить дерево по данному меню.
Спасибо

---

Polevi   (2004-06-23 10:09:00) [1]

ааа, сорри ступил

---

Polevi   (2004-06-23 10:07:00) [2]

procedure BuildMenu(menu:TMenu;TreeView:TTreeView);

 procedure BuildItem(mi:TMenuItem; node:TTreeNode);
 var
   n:TTreeNode;
   i:integer;
 begin
   n:=TreeView.Items.AddChild(node,mi.Caption);
   for i:=0 to mi.Count-1 do
     BuildItem(mi[i],n);
 end;

var
 i:integer;
 root:TTreeNode;
begin
 root:=TreeView.Items.Add(nil,'Menu');
 for i:=0 to menu.Items.Count-1 do
   BuildItem(menu.Items[i],root);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BuildMenu(mainMenu1,TreeView1);
end;

---

Mitrofan   (2004-06-23 09:24:00) [3]

Совсем запутался с этой рекурсией.
Помогите строчками кода, плиззззз.

---

Mim1   (2004-06-18 15:44:00) [4]

> [5] Mitrofan   (18.06.04 15:37)
> Но MainMenu1.Items есть только метода Add, и нет метода
>
> AddChild;


Ага, я это знаю, и что это меняет?
Даю намек резултат выпоенения метода add класса tmenuitem - ссылка на обьект типа tmenuitem.

---

Mitrofan   (2004-06-18 15:37:00) [5]

Но MainMenu1.Items есть только метода Add, и нет метода
AddChild;

---

Mim1   (2004-06-18 15:33:00) [6]

:(
такой же рекурсией
пожалуйста

---

Mitrofan   (2004-06-18 15:24:00) [7]

А обратная задача как будет выглядеть ?
 Т.е. имеем дерево в виде TTreeView и требуется построить меню.

---

Mim1   (2004-06-18 13:10:00) [8]

procedure TForm1.FormCreate(Sender: TObject);
procedure xadd(mi:tmenuitem;ti:TTreeNode);
var i:integer;
begin
 for i:= 0 to mi.count-1 do
   xadd(mi[i],TreeView1.items.AddChild(ti,mi[i].caption))
end;
begin
 xadd(MainMenu1.Items,nil);
end;

---

TUser   (2004-06-18 12:46:00) [9]

Рекурсией

---

Наверх