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

Как программно добавит суб меню в PopupMenu?   Найти похожие ветки 

← →
Layner ©   (2004-08-25 13:57) [0]

В само меню добавляю без проблем, а вот в субменю не могу :( Код:

var
MyPopUpItem:  TMenuItem; //динамическое меню

begin
MyPopUpItem := TMenuItem.Create(Self);
MyPopUpItem.Caption:="uuu"; // добавили пока одну строчку
PopupMenu1.Items.Add(MyPopUpItem);  // добавили в основной PopupMenu

---

← →
Skier ©   (2004-08-25 14:07) [1]

MyPopUpItem := TMenuItem.Create(Self);
MyPopUpItem.Caption:="uuu"; // добавили пока одну строчку
MyPopUpItem.Items.Add(...);
MyPopUpItem.Items.Add(...);
PopupMenu1.Items.Add(MyPopUpItem);  // добавили в основной

---

← →
Layner ©   (2004-08-25 14:23) [2]

Skier ©   (25.08.04 14:07)
Спасибо, но вроде я не так выяснился. Сейчас подробнее. Есть PopupMenu1, на нем есть TMenuItem, несколько. На одном из этих TMenuItem под названием Mi_prog нужно вставить субменю, и это субменю формируется выше как MyPopUpItem.
Как бы вот это организовать :( Перебрал все что мог, додумать не могу :(

---

← →
афвуд   (2004-08-25 14:28) [3]

MyPopUpItem.Add(MyPopUpItem2);

---

← →
Layner ©   (2004-08-25 14:53) [4]

афвуд   (25.08.04 14:28)
:)
Не в меню, а в подменю!

---

← →
афвуд   (2004-08-25 15:07) [5]

Так ведь блин оно так и делает. :)

MyPopUpItem2 попадёт в подменю пункта MyPopUpItem.

В твоём случае:
Mi_prog.Add(MyPopUpItem);

---

← →
Layner ©   (2004-08-25 15:14) [6]

Точно, блин, но я так делал, и не получалось :)
Вернее я делал так :)
Mi_prog.Items.Add(MyPopUpItem);
Спасибо!

---

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

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



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