Скачать: CL | DM;

Как в run-time добавить к всплывающему меню подменю?   Найти похожие ветки 

← →
KMI ©   (2003-05-31 20:22) [0]

Друзья, подкиньте идею... Нужно во всплывающем меню у некоторого пункта (заранее не известно, какого именно) создать подменю из нескольких пунктов (их число рассчитывается в процессе работы).

---

← →
Романов Р.В. ©   (2003-05-31 20:50) [1]

1. Создать пункт меню TMenuItem.Create
2. Инициализировать его свойства TMenuItem.Caption := "fkjg";
3. Добавить к пункту меню TMenuItem.Add

---

← →
KMI ©   (2003-05-31 21:55) [2]

Спасибо, это работает, но я не совсем правильно сформулировал задачу. Нужно фактически заменить неизвестное количество пунктов на неизвестное количество новых пунктов.

---

← →
Palladin ©   (2003-05-31 22:10) [3]

удали неивестное количествое и добавь неизвестное количество

---

← →
Романов Р.В. ©   (2003-05-31 22:33) [4]

Удалить все подпункты можно так

while MenuItem.Count > 0 do
MenuItem.Items[0].Delete

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c