|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с компонентом TpopupMenu
всем привет!
Hellp ? помогите разобраться создаю компонентом TpopupMenu. но потом не знаю как довавить программно в него же еще меню и подменю . rfr Код:
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
|
|||
|
|||
GetPopupMenu as TPopupMenu
Спасибо разобрался, вот кому нужно.
Код:
with (GetPopupMenu as TPopupMenu) do begin Menu:=TMenuItem.Create(self); Menu.Caption := btn1.Caption; Menu.OnClick := nil; Items.Insert(0, Menu); end; |