Скачать: CL | DM;

Звязать TreeView и MainMenu   Найти похожие ветки 

← →
Николай1   (2005-09-06 14:24) [0]

Народ некто не пробовал раньше связать MainMenu c TreeView, Хочю сделать дерево меню для более быстрой работы но как незнаю
Подскажите кто чем может. Зарание спасибо.

---

← →
Eraser ©   (2005-09-06 14:32) [1]

Николай1   (06.09.05 14:24)
Хочю сделать дерево меню

Это как?
Меню итак поддерживает иерархию.

---

← →
Николай1   (2005-09-06 14:35) [2]

Дак этото я и так понимаю мне надо чтобы при запуске программы на основе MainMnu создавался  TreeView с такимже деревом как и в MinMnu Я незнаю как сделать обход Main_mnu чтобы сделать дерево

---

← →
Eraser ©   (2005-09-06 14:40) [3]

Проёдись рекурсией по TMenuItem.Items.

---

← →
Николай1   (2005-09-06 14:41) [4]

Ок Попробуем

---

← →
Николай1   (2005-09-06 15:09) [5]

Прости а неподскажешь что передавать как параметр Функции

---

← →
Eraser ©   (2005-09-06 15:14) [6]

Николай1   (06.09.05 15:09) [5]

Текущий TMenuItem конечно.

---

← →
Николай1   (2005-09-06 15:26) [7]

А какое свойство возвращает текущий ItemIndex

---

← →
Eraser ©   (2005-09-06 15:33) [8]

Николай1   (06.09.05 15:26) [7]

А зачем текущий ItemIndex нужен? (если такой вообще имеется).
В цикле проходи по всем итемам TMenuItem"a и для каждого вызывай текущую процедуру.

---

← →
begin...end ©   (2005-09-06 16:02) [9]

> Николай1

procedure TMyForm.AddMenuItemToTree(MenuItem: TMenuItem; ParentNode: TTreeNode);
var
 I: Integer;
 NewParentNode: TTreeNode;
begin
 NewParentNode := TreeView.Items.AddChild(ParentNode, StripHotKey(MenuItem.Caption));
 if MenuItem.Count > 0 then
   for I := 0 to Pred(MenuItem.Count) do
     AddMenuItemToTree(MenuItem.Items[I], NewParentNode)
end;

procedure TMyForm.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 for I := 0 to Pred(MainMenu.Items.Count) do
   AddMenuItemToTree(MainMenu.Items[I], nil)
end

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c