Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

PopupMenu   Найти похожие ветки 

 
Remis   (2003-05-22 23:39) [0]

Как программно добавить submenu?


 
KA_ ©   (2003-05-23 08:59) [1]


var
PopupItem: TMenuItem;
begin
...
PopupItem := TMenuItem.Create(Self);
PopupItem.Caption := "Caption of new item";
PopupItem.OnClick := NewPopupItemClick;
PopupMenu.Items.Add(PopupItem);
...
end;


 
Palladin ©   (2003-05-23 09:07) [2]

что бы из пункта получилось меню нужно добавить в этот пункт пункт :)


 
Remis   (2003-05-23 12:02) [3]

Создать Menu.Items я умею... Но мне надо в один пункт добавить другие пункты. И незнаю как. Вот как в примере в "Caption of new item" нужно добавить еще скажем item1, item2, item3...


 
Palladin ©   (2003-05-23 12:04) [4]

метод Add вам знаком?


 
Remis   (2003-05-23 12:44) [5]

Конечно знаком. Но видимо я плохо обьясняю или незнаю чего то элементарного...
Если я делаю PopupMenu.Items.Add(PopupItem), добавляеться пункт в menu, если еще раз PopupMenu.Items.Add(PopupItem), добавляеться пункт РЯДОМ с первым. А мне нужно добавить В первый пункт...


 
Palladin ©   (2003-05-23 12:54) [6]

а вот так не пробовал
PopupMenu.Items[1].Add(PopupItem)


 
Remis   (2003-05-23 21:24) [7]

Во... Это то что нужно. :))



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

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-13203
Disa
2003-05-20 16:22
2003.06.05
Поверх всех окон...


4-13512
Shirson
2003-04-07 09:01
2003.06.05
Проблема с GlobalHandle.


3-13032
Praco
2003-05-16 11:23
2003.06.05
При восстановлении из бэкапа часть индексов неактивны


3-13057
Reals
2003-05-16 20:08
2003.06.05
ПОДСКАЖИТЕ ПОЖАЛУЙСТА по поводу Microsoft.Jet.OLEDB.4.0


1-13221
Spider
2003-05-26 17:18
2003.06.05
Кривой компонент не дает снять задачу...