Reference.AddPopupLeave()
Завершить подменю

Метод Reference.AddPopupLeave позволяет добавлять элементы в прошлое меню (выше уровнем).

Пример:

Procedure OnCreate;
Begin
  AddPopupSubmenu('Подменю 1');
  AddPopup('Команда 1', 'Command1');
  AddPopup('Команда 2', 'Command2');
  AddPopupLeave();
  AddPopupSubmenu('Подменю 2');
  AddPopup('Команда 3', 'Command3');
  AddPopup('Команда 4', 'Command4');
  AddPopupLeave();
End;

Procedure Command1;
Begin
...

© RTIT