Как в 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]

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

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

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

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