Текущий архив: 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.024 c