![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() всем привет!
Hellp ? помогите разобраться создаю компонентом TpopupMenu. но потом не знаю как довавить программно в него же еще меню и подменю ![]() Код:
Pmenu:=TPopupMenu.Create(Self); with Pmenu do begin Pmenu.Name:='pmname_1'; pnl1.PopupMenu:=Pmenu; Items.Add(NewItem('меню1',0, False, True,nil, 0 ,'menup_2')); Items.Add(NewItem('меню2',0, False, True,nil, 0 ,'menup_3)); end; |
#2
|
|||
|
|||
![]() Добавление пункта меню:
Код:
NewItem := TMenuItem.Create(Self); NewItem.Caption := child.Caption; form1.PopupMenu1.Items.Add(NewItem); Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#3
|
|||
|
|||
![]() Цитата:
|
#4
|
|||
|
|||
![]() Спасибо разобрался, вот кому нужно.
![]() ![]() Код:
with (GetPopupMenu as TPopupMenu) do begin Menu:=TMenuItem.Create(self); Menu.Caption := btn1.Caption; Menu.OnClick := nil; Items.Insert(0, Menu); end; |