Как во время выполнения создать Items в PopupMenu?

Вопрос: Как во время выполнения создать Items в PopupMenu?

Ответ : code: -------------------------------------------------------------------------------- TPopupMenu* pum; //Создаем новый пункт TMenuItem* mi = TMenuItem(Owner); //Производим настройки mi -> Caption = "New Menu Item" //Помещаем его в конец pum: pum -> Items -> Add(mi); --------------------------------------------------------------------------------

Содержание раздела