Как программно добавит суб меню в 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);

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

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