| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно добавит суб меню в PopupMenu?
Layner © (2004-08-25 13:57:00)В само меню добавляю без проблем, а вот в субменю не могу :( Код:
var
MyPopUpItem: TMenuItem; //динамическое меню
begin
MyPopUpItem := TMenuItem.Create(Self);
MyPopUpItem.Caption:='uuu'; // добавили пока одну строчку
PopupMenu1.Items.Add(MyPopUpItem); // добавили в основной PopupMenu
Layner (2004-08-25 15:14:00) [1]Точно, блин, но я так делал, и не получалось :)
Вернее я делал так :)
Mi_prog.Items.Add(MyPopUpItem);
Спасибо!
афвуд (2004-08-25 15:07:00) [2]Так ведь блин оно так и делает. :)
MyPopUpItem2 попадёт в подменю пункта MyPopUpItem.
В твоём случае:
Mi_prog.Add(MyPopUpItem);
Layner (2004-08-25 14:53:00) [3]афвуд (25.08.04 14:28)
:)
Не в меню, а в подменю!
афвуд (2004-08-25 14:28:00) [4]MyPopUpItem.Add(MyPopUpItem2);
Layner (2004-08-25 14:23:00) [5]Skier © (25.08.04 14:07)
Спасибо, но вроде я не так выяснился. Сейчас подробнее. Есть PopupMenu1, на нем есть TMenuItem, несколько. На одном из этих TMenuItemпод названием Mi_progнужно вставить субменю, и это субменю формируется выше как MyPopUpItem.
Как бы вот это организовать :( Перебрал все что мог, додумать не могу :(
Skier (2004-08-25 14:07:00) [6]MyPopUpItem := TMenuItem.Create(Self);
MyPopUpItem.Caption:='uuu'; // добавили пока одну строчку
MyPopUpItem.Items.Add(...);
MyPopUpItem.Items.Add(...);
PopupMenu1.Items.Add(MyPopUpItem); // добавили в основной
| |
